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ASSTRACT 


CSRS EELALEPEL AES OT 


REGUIREMENTS 
EQUIPMENT 


“11 COMPUTER WITH OR WITHO WARE SWITCH REGISTER 
Ren BONSOLE SELESFES AND BOTA SeCE TIE 5 


STORGGE 
THIS PROGRAM REQUIRES APPROX. 4K STORAGE. 
PRELIMINARY PROGRAMS 
MRINDEC-11- gine 
meINDE iL 
MSINDEC-11-D2Z7T 
LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
OR A CASSETTE TAPE. 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 
SEE 5.1. 

STARTING ADDRESSES 


200 NORMAL STARTING ADDRESS 

204 SELECT DRIVE(S) BEFORE STARTING TEST 

210 SELECT DRIVE(S) AND ADDRESSES BEFORE STARTING TEST 
3 SETUP FOR MANUAL LOOPING 

520 © WRITE FILE GAP FROM 80T TO EOT 

cei MBLTE CONTINOUS BLOCKS OF DATA 


4 WRITE FILE GAP AND A BLOCK OF DATA 
240 READ BLOCK OF DATA AND INTO A FILE GAP 
est SFACE FWO FILE GAP FROM BOT TO EOT 
eso BACK SPACE FILE GAPS 





S€9 0003 


Bui 








4.3 


PROGRAM & OPERATOR ACTION 


SECTIO N 3.) 
: al a ei tae © ORSSe STE IN BOTH DRIVES 
4: 
s. § Bae ol ots ae eo), SECTION 5.1) 
?, THE BROGRAR WILL LOOP $ TTY BELL WILL RING ONCE EVERY 
Pass, IF Sw<1O>=0. 


eee "Teak UC yee eikexkknk Nek APTER TYPING 


DRIVE SELECTION. 


STARTING THE PROGRAM rf eS WILL RESULT IN AUTOMATIC 


SOE: A LgRD SEDIUR 5 CASSETTE rTM Sra ARD VECTOR 
WILL “RE OND AS IF STARTED AT 210. 


STARTING THE PROGRAM AT 204, 210 OR 214 ALLOWS THE OPERATOR 
To SELECT THE DRIVE(S) 10 BE TESTED 


THE PROGRA’ WILL TYPE “DRIVE(S)?". 


EITHER OR BOTH DRIVES CAN BSE SELECTED SY TYPING “A” AND/OR 
“8” FOLLOWED BY A CARRIAGE RETURN. 


1 DRIVE SELECTION EXAMPLES 
DRIVE (5)? A,B 
c8 


REI YE e)- B.A 
BRIVE(S)? 8 





EOL 


SEQ 0004 





FOL 





4.3.2 ADDRESS SELECTION 


210 OR 214 ALLOWS THE OPERATOR 
AND STATUS” AND “DATA BUFFER” 
VECTOR ADDRESS AND THE 


re THE PROGRAM AT 

Q CHANGE THE “CONTROL 

Re oraite ADDRESSES, THE 
TORITY LEVEL. 


THE PROGRAM WILL ASK FOR THE DRIVES TO BE bi be STED AS PER 


TLL 
4 ag 1. AFTER THE ORIVES HAVE BEEN SELECTED IT WILL ASK 
3 SUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 
. VECTOR ADDRESS 
3. PRIORITY LEVEL 
AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR_A CARRIAGE BS Ten (WHICH IMPLIES LEAVE AS IS). 
WHEN ALL P HAVE BEEN a pee THE PROGRAM 
wall pin THEM BACK “UT AND ASK rts ARE OK AT 
WHICH TIME THE OPERATOR & SPONSES | WITH AY" OR A 
“CARRIAGE RETURN” FOR “YES” ANYTHING EL ee IS A. “NO”. 


4.3.2.1 ADDRESS SELECTION EXAMPLES 
DRIVES(S) A 
TACS? 177500 
VECTOR? 
PRIORITY? & 
TacS=:77500 TADB=177502 VECTOR=000260 PRIORITY=000200 


DRIVE: °S) 4,8 
Tacs? 470 
















SUBTEST LOOPING 


THE SC SpERATS (REFER 5.2.1) PROVIDES A MEANS BY 
rg ae RATOR CAN SPECIFY THE FIRST ADDRESS OF 


4.3.3 





THE OPERATOR TYPES A “CONTROL _C™ (tC) AND WHEN THE 
ext SCOPE STATEMENT IS EXECUTED THE PROGRAM WILL ASK 


k. TSD Ax TS ERLE RET wT & # sore 


4.3.3.1 SUBTEST LOOPING EXAMPLES 


;OPERATOR TYPES “tC” 
test eC 2242 ;OPERATOR TYPES MP RETURN “(CR)” 
OP Fc? :OPERATOR TYPES “CR” WHI 
IMPLIES “LOOP pcs Se TESt Pc” 


j OPERATOR TYPES “t 
TEST PC? 3000 _ pOPERATOR TYPES “3000°"CR™ 
LOOP FC? 3020 OPERATOR TYPES “3020""CR™ 


: PRO 
apps! ADDRESS OF THE SCOPE 


-OPERATOR TYPES "¢C" 

tec PC? _ ; OPERATOR ry Sure "CR" 

PROGRAM CONTINUE 
FROM THIS NOINt 

















° OPERATING PROCEDURE 
§.1 OPERATIONAL SWITCH SETTINGS 
TAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
a cree ten ee OWS 
pice eters AS ys ® HARDWARE SWITCH REGISTER. 
GISTER DOES NOT EXIST OR IF ONE DOES 


a0 CONTAINS ALL "thes hirer? TREN THE SOFTWARE SWITCH 


CONTROL: 
THIS SRAM ALSO SUPPORTS I DYNAMIC LOADING OF THE SOFTWARE SWITCH 
STER (LOC. 176) FROM THE TTY. THIS EAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 
1) TYPE CONTROL G <?G>; HIS WIL ALLOW T Ty ay? ENTER DATA INTO 
LOC. 178 AT SELEC teea Bo THIN THE 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE **NEW="* HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
MILL Be ALLOK ETWEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


IF A <CR> IS THE FIRST KEY ah?! THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. 


WITH SW<15:08>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND gt IN TEST. BELL WILL RING 
AT COMPLETION OF A PASS. 

THE SWITCH SETTINGS ARE: 


SW<1S>=1...HALT ON ERROR 
SW<14>=1...LOOP ON TEST 
SW<13>=1... INHIBIT ERROR TYPEOUTS 
SW<i]>=1... INHIBIT ITERATIONS 
SW<10>=1...RING BELL ON ERROR 
SW<i0>=0...RING BELL ON PASS COMPLETE 
SW<O09>=1...LOO0P ON ERROR 

SW<O7>=1.. LOCK os "han DRIVE 
SW‘O0>=1...DELAY AT END - sna UC TrOM 
SW<O4=1... IGNORE BLOCK CHECK ERRORS 
| SW<O3>=1... INHIBIT DATA COMPARE 
| 


me ee eee 


I01 





§.2 SUBROUTINE ABSTRACTS 
5.2.1 SCOPE 


THIS SUBROUTINE CALL (VIA AN IOT INSTRUCTION) IS PLACED BETWEEN 
EACH TEST IN ie. wer RUCTION SECTION. IT RECORDS THE STARTING 
a ae ST IN LOCATION “SLPADR” AND “SLPERR” AS IT IS 


THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
NOTE: THIS ROUTINE CHECKS THE TTY INPUT BUFFER FOR A 
“SONTROL C* (REFER TO 4.3.3) 











§.2.2 TRAPCATCHER 


A". +2" = “HALT” SEQUENCE IS REPEATED FROM LOC. 0 TO LOC. 776 
TO CATCH_ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR +2. 


5.2.3 ERROR 
THIS ee CALL a, A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO 6.) 


### THIS ROUTINE SUPPORTS THE S/W i beg net FUNCTIONS 
Rte Fee HALTS (BIT 15=1) RATOR 


— GS” <tG> BEFORE HITTING CONTINUE. 


A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION. 
Route TS THE CALLS USED AND THE STARTING ADDRESS OF THE 


5.2.4.1 TYPE (STYPE) 

TYPE AN ASCIZ STRING ON THE TTY 
5.2.4.2 RDCHR (SRDCHR) 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
5.2.4.3 ROLIN (SRDLIN) 

READ AN ASCII STRING FROM THE TTY 
5.2.4.4 SETLOOP (T.SETLOOP) 
: SETUP TO LOOP AS PER THE TTY 
| 
{ 








JOl 


SEG 0009 


5.2.5 THE FOLLOWING “TRAP” CALLS ARE WHAT ARE USED TO PERFORM 
THE ROUTINES THAT ARE CALLED IS WHAT MAKES UP THE HEART 
OF THIS PROGRAM. 
5.2.5.1 WG (T.WFG) WRITE @ FILE GAP 
5.2.5.2 WRITE (T.WRIT) WRITE A BLOCK OF DATA 
5.2.5.3 READ (T.READ) READ A BLOCK OF DATA 
5.2.5.4 BSFG (T.8SFG) BACK SPACE A FILE GAP 
5.2.5.5 BSBG (T.BSBG) BACK SPACE A BLOCK GAP 
5.2.5.6 SFFG <(T.SFFG) SPACE FORWARD A FILE GAP 
| 5.2.5.7 SFBG (T.SFBG) SPACE FORWARD A BLOCK GAP 
5.2.5.9 REWIND (T.RWND) REWIND THE TAPE TO BOT 
5.2.5.9 SELDRV (T.SELDRV) SELECT A DRIVE 
5.2.5.10 SLKCMP (T.SLKCMP) COMPARE READ AND WRITE BUFFERS 
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5.2.6 THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR 
§.2.5.1 DO.CMD 


Pere PUTIN te i eg 1 BYTE OF THE “TACS” WITH THE 


WHEN THE FUNCTION IS TO BE PERFORMED WITH “INTERRUPT ENABLE”=1 
ree TALL VECTOR IS SET TO "SERV". WHEN THE FUCTION IS TO BE 
RFORMED WITH “INTERRUPT ENABLE“=0 THE VECTOR IS SET TO “BADINT” 


NOTE SWR<S> PROVIDES OVERRIDE CAPABLITIES OF “INTERRUPT 
ENABLE” =1. 


5.2.6.2 WAITFLAG 
THIS ROUTINE IS CALLED AFTER A COMMAND HAS BEEN SENT TO 
THE TALL. IT WAITS A PREDETERMINED AMOUNT OF TIME A 
TAKES ONE OF THREE EXITS. 
THE EXITS FOLLOW THE CALL AND ARE: 
1. ERROR NO FLAGS OCCURRED 
2: ERROR NO INTERRUPT OCCURRED 
3. NORMAL RETURN 
5.2.6.3 FLAGS 
THIS ROUTINE IS CALLED TO DETERMINE WHAT FLAGS ARE UP. 
THIS ROUTINE KILL TAKE ONE OF FOUR RETURNS DEPENDING ON 
THE RETURNS FOLLOW THE CALL AND ARE:. 
1. “TRANFER REQUEST"=0 AND “READY"=0 
2. “TRANFER REQUEST"=1 
3. “READY"=1 AND “ERROR"=0 
3 “READY"=1 AND “ERROR=1 
5.2.6.3 DO.CRC : 
THIS ROUTINE IS USED TO CALCULATE *CRC™ 
IT WORKS ON ONE BYTE AT A TIME WHICH MUST SE IN RO WHEN 
CALLED. = 
5.2.6.4 A20CT 


THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL NUMBER. 















5.2.6.5 GETORV 
THIS ROUTINE IS USED TO ASK THE OPERATOR WHICH DRIVE(S) 
ARE TO BE TESTED 






5.2.6.6 ASKADR 


THIS ROUT NG IS USED TO INPUT THE ADDRESSES FOR THE “TACS”, 
“TADB™ AND THE VECTOR AND THE PRIORITY LEVEL TO USE. 





5.2.5.7 TYPERR 
THIS ROUTINE IS USED TO TYPE OUT THE “ERROR” DATA 
5.2.6.8 EXAM 


THIS ROUTINE IS USED TO DETERMINE WHICH DRIVE(S) ARE AVAILABLE 
FOR TESTING. 


5.2.7 THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO 
THE TUSO. BEFORE USING ANY OF THEM LOAD AND START 214. 


$.2.7.1 WFGSUB 


he 4 at bon FROM “BOT” TO “EOT™ 
THIS ROUTINE CAN BE USED TO ADJUST THE “WRITE GAP MONO” AND 
THE “WRITE DELAY MONO”. 


§.2.7.2 WRTSUB 
wert CONTINUOUS BLOCKS OF DATA 
START AT 224 


THE PROGRAM WILL HALT THREE(3) TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 --= SWR<7:0)> = NUMBER OF BYTES PER BLOCK 
HALT 2 ~aigiiR<7: 0) = PATTERN DESIRED 
HALT 3 --- SUR< is: 0> = OPERATIONAL SUITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE GAP TIME MONO” 
#* IF USING SOFTWARE SWITCH REGISTER eTER 
EACH HALT OPERATOR WILL BE P BRONPTE 
FOR THE VALUE WITH “SWR=XXXXXX Neto 


















5.2.7.3 ROSUB 


READ CONTINUOUS BLOCKS OF DATA 
START AT 230 

THIS ROUTINE CAN BE USED TO ADJUST THE “SIGNAL MONO” 
AND THE “THRESHOLD POT” 











5.2.7.4 WGPSLK 






WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 
START AT 234 
THE PROGRAM WILL HALT T ) TI TRS 






ay EACH Att . ; Ly ¥ Sid c puree & 

HALT 1 --- MBER ere EB Son YOEK 

HALT 2 --- Stee o> = PATTERN 0 

HALT 3 --- SWR<15:0> = OPERATIONAL SUITCH SETTINGS 

THIS ROUTINE 7 BE USED TO ADJUST THE “WRITE GAP MONO” 
AND THE “GAP TIME MONO”. 


** IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH “SWR=XXXXXXx NEW=" 












5.2.7.5 RGBLK 


oe A A as OF DATA AND A FILE GAP 
THIS ROUTINE IS USED AFTER “WRITE A BLOCK AND A FILE GAP” ROUTINE 
IT CAN BE USED TO ADJUST THE “SIGNAL MON". THE THRESHOLD POT” 
AND THE “TAPE BLANK MONO”. 


5.2.7.6 SFFGSB 
SPACE FORWARD FILE GAP FROM “BOT” TO “EOT™ 
THIS ROUTINE CAN BE USED AFTER “WRITE FILE GAP” FOR LOW SPEED 
SPACE F OWARD (TAPE BLANK MONO CAN BE ADJUSTED). OR AFTER READ OR 
WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
(SIGNAL MONO CAN BE CHECKED). 

.2.7.7 BSFGSB 
BACK SPACE FILE GAP 


START AT 250 
THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE “SIGNAL MONO”. 










wm 









ERRORS 
Rok ARE A Fey ma ERRORS THAT CAN or. a ms 


OGRAM. t's ¥ i ENCOUNTERED yh 
ay TERROR) AND I wei Is NOT 


SEi_A ERROR Peesace CENTAINING TO Toe ERROR MLE 


THE FUNCTION — PERFORM 


. a 
4. DATA STRING 


REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


RESTRICTIONS : 
FORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT 0 
CASSETTE I LOADED IN THE DRIVE(S) T0 BE TESTED AND IS URITE 
MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS TAKES APPROXIMATELY 4 MINUTES ALL 
SUBSEQUENT PASSES TAKE APPOXIMATELY 8 MINUTES 


STACK POINTER 

STACK IS INITIALLY SET TO 1100. 

PASS COUNT 

A PROGRAM PASS THRU COUNT IS KEPT IN “SPASS”. 

ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FULL, 
(ONE PER DRIVE), ITERATIONS. 

SPECIAL REGISTERS 


AND RS ARE RESERVED FOR “TACS” AND “TADB” THROUGH 
att THE PROGRAM. 
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Seo c014 
PROGRAM DESCRIPTION — 


THIS PROGRAM IS a SEQUENCE OF 1 EPENDENT TESTS THAT 
CHEEK THE TAL] FOR PROPER OPERAT 


ROH TES" aH is a ‘mee OF “TRAP” CALLS TO ROUTINES THAT PERFORM 
HE DESIRED FUNC 


THE PROGRAM STARTS WITH A rife SEQUENCE OF FUNCTIONS 
AND SUIL Ts IN CO LEXTTY I NTR eas ONE NEW FUN NETION 
ATA TIME, UNTIL ALL LEG NGTIONS HAVE BEEN goer ORMED. 
THEN, PULTI SPACING I5 PE seu "TQ TRY_AND GENERATE 

NOTSE TSST MIGHT aes oUSE _ProBLens cuk T5 SPeeD CHANGES AND 
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E4-MaY-76 09:09 TABLE OF CONTENTS 
eer AF ete 
PThrtions TCH SETT 
Saetc “SEETNTY! 


TRAP TING ADDRESSES 
STaRTING A TEER scree) 
COMM 
ERROR POINTER TABLE 

START OF TEST 
PNLTIAL Tee THE COMMON TAGS 


37 VALUE_FOR SOFTWARE SWITCH REGISTER 


] REWIND, WR ND 
73 TES? 886 erteR WRITE AND READ AFTER 8596 
T3 TEST BSF BSF 


Mis WRITE AND READ AFTER 


WIND AND BSFG AFTER SFBG 


w 
aa] 


TS TES 


T SFBG 
1? TEST WRITE AFTER READ 

T1Q ‘TEST WRITE AFTER WRITE AND READ AFTER READ 

Tli TEST BSBG AFTER BSBG 

THe TEST BEAD ATER Fes 

TI3 ss TEST SFBG AFTER Bs8G 

TIS. TEST _SFBG AFTER BSFG 

Tis REARITE THE LAST BLOCK 2 TIMES AFTER QOING @ WRITE GETER URTTE 
TIS «REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER READ 
Tl? ‘TEST WEG AFTER WRITE AND BSFo AFTER WEG 

Teo TEST BSBG ARTER Ura 

Tei «TEST WRITE AFTER WFG 

Tee 40s TEST WEG AFTER READ AND SSFG AFTER WRITE 

123s TEST SFFG AFTER REWINC AND READ AFTER SEFC 

T24 = ss TEST BSBG AFTER SFFG 

es TEST SFBG AFTER SfrG 

Tee 4©=s TEST SFBG AFTER SFB 

Te? ss TEST BSFG GFTER SFEG AND SSFG AFTER SSFG 

7300s TEST 8586 THRU A FILE GAP 

731 ‘TEST BSFG AFTER 2s8 

Tae TEST BSBG AFTER 


T3? ST WRITE AFTER SFBG 

##£444 THE Ate: NG ets ad TO GENERATE NOISEs## 
T40 3 ONE BLOCK FILES---MULTI SPACING & ua SFFG AFTER SSFG 
T4] TWO BLOCK FILES---MULTI “SPACING FUNCTIONS 


THe MULTI SPACING & TEST SF8G AFTER READ 
T43 TWO BLOCK FILES--MULTI a eantr & TEST SFFG AFTER 8S8G 
TH4 & ONE BLOCK FILES---MULT] SPACING 
END OF PASS ay NE 
ROUT]! ° EXAMINE DRIVE(S) FOR AVAILABLITY 
COPE f HANOLER RC ROUTINE 


ze RROR HANDLER TINE 

ERR BR TYPEOUT ROUTINE 

ROUTINE 79 ASK THE OPERATOR WHAT DRIVE(S) TO TEST 
ROUTINE * 6 INPUT ~SR,O8R, AND VECTOR ADDRESS AND PRIORITY 


ne ee ee ee eee 
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ROUTINE TO “ E- 
ROUTINE TO “SPACE -F ORWARD-F ILE” GAP” 
ROUTINE TO “SPACE-FORWARD-BLOCK-GAP” 
ROUTINE TO REWIND THE TAP: 
ROUTINE TO WAIT FOR_A FLAG 
ROUTINE TO EXAMINE THE FLAGS 
ROUTINE TO eR TS Me ore 
ROUTINE TO PERFORM 3 QUESTED FUNCTION 
ROUTINE TO SERVICE INTERRUPT 
ROUTINE TO SERVICE ILLGAL INTERRUPTS FROM THE TALL 


HRLEFREREE podig' “abuts rN NT ROUTINES ##4222224% 
WRITE FILE GAPS FROM “SOT Q. at . 
WRITE CONTINUOUS BL ocKs OF DAT - 
READ AND COMPARE CON TEMS BLOCK S OF DATR » 
WRITE A Fite GAP AND A BLOCK OF DRTA on OT 0 EOT 
READ AND COMPARE 4 op OF DATA AND A ae GAF 
SPACE care FILE GAP FROM “SOT” TO “ECT 
BACK SPACE FILE GAP 
re SETUP READ AND WRITE LINKS FOR SUSROUTINES 


‘PE ROUTINE 
TTY INPUT ROUTINE 
READ AN AL NUMBER FROM THE TTY 
BINARY TO OCTAL (ASCII) AND TYPE 
we o DECODER 


sOuER. DOWN AND uP ROUTINES 
Ba nettacee FOR ERRORS 
READ AND WRITE BUFFERS AND LINKS 
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.TITLE TALL MOTION TEST MAINDEC=1!-DZTAD-C - 
:#COPYR GHT 
80 GIT EQUIPMENT CORP. 
YNARS, MASS. 01754 
!sPROGRAN BY JIM LACEY 


t STHIS PROGRAM WAS ASSEMBLED USING THE PDOP-11 MAINDEC SYSMAC 
: SPRCKAGE (MAINDEC=11-DZ2QAC-C2), SEPT 14, 1976. 


; SORODEDERUEORRRRERRORGHEOUREGOREERSSHOOBEESOSEODEREESESOSOUEED 

: i tetebnboetotoboetetodtetebototetetnttetetottetatotobotobeleboteboboteoboboteoboteboteiseboboibobobbobb 

Sy RARRAA RRA SRAAAEA AREA AA ERAS AAA E ALARA AA RARS LA EAELALARELERLRALELE 
v 


















GENERAL INFORMATION ABOUT THE TAL1/TUEO CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 








or eng TACS CONTRO na apetue REGISTER 
777502 TADS A BUFFER REGISTER 
260 TAVEC PNTERRUPT VECTOR 










TACS REGISTER DESCRIPTION 








is ERROR ? READ ONLY 
14 BLOCK CHECK ERROR 0 READ ONLY 
13 CLEAR LEADER ? READ ONLY 
le WRITE LOCK ? READ ONLY 
i} L READ ONLY 
1 TIMING ERROR READ ONL 
03 OFF LINE ? READ ONLY 
08 UNIT SELECT 0 READ/WRITE 
07 TRANSFER REQUEST 0 R NLY 
0& INTERRUPT ENABLE 0 READ/WRITE 
os READY 1 READ ONLY 
O4 ILBS 0 READ/WRITE 
03 FUNCTION BIT D2 0 READ /WRITE 
02 FUNCTION BIT 91 0 READ /WRITE 
01 FUNCTION BIT O00 0 READ WRITE 

O=WRITE-FILE-GAP 

1=WRITE 

=READ 


2 
=BACK SPACE FILE GAP 
4=BACK SPACE BLOCK GAP 
S=SPACE FORWARD FILE GAP 
ss 6=SPACE FORWARD BLOCK GAP 
7=REWIND 


ee a mn eee ee 


| SEOERE "Enns EASES UU PTS stems s0 oi 
: $7 


oc GU SIT 0 WRITE ONLY! 


| 
| 








TALL MOTION TEST  MAINDEC-11-DZ2TAD-C 
DZTADC.NEW 24-MAY-76 00:00 


MACY! 
OPERATIONAL surtcH SETTINGS 
$8 ‘ - SOTTL OPERATIONAL SWITCH SETTINGS 







23-SEP-76 10:33 PAGE 3 
SEQ 0019 












BO :s SWITCH USE 

BS :% 15 HALT oN ERROR 

eS + 13 N ER TYPEOUTS 

35 :* il ist iE RATI ONE 

55 :% 10 RROR 

? :% g es ON N EReoe 

68 :% rg LOCK ON CURRENT DRIVE 

69 :% 6 DELAY AT END OF EACH FUNCTION 
79 1% iS RUN WITHOUT INTERRUPTS 

7) 1% q IGNORE BLOCK CHECK ERRORS 
22 :% 3 INHIBIT DATA COMPARE 










74 
75 

2 ; .SBTTL: BASIC DEFINITIONS 

jXINITIAL ADDRESS OF THE STACK POINTER **#* 1100 *#* 







af on v Lie ERROR T F ERROR C 
g ey BT ECGeE si BRete BEE ENE TION SF RCPE eat 
83 panacea DEFINITIONS 

34 000011 T= ll ;;CODE FOR HOR ZONTAL TAB 
es 900812 






LF= is 33 00D Pen k 

















177776 PS= 
gs EQUI PSW 
$0 177774 ;;STACK LIMIT REGIST ER 
31 177772 PIRG= 17777 ; PROGRAM INTERRUPT REQUEST REGISTER 
32 177570 SWR= 177570 >:HARDWARE SWITCH REGISTER 
33 177570 DrsP= 177570 *:HARDWARE DISPLAY REGISTER 
gs *GENERAL PLIRPOSE REGISTER DEFINITIONS 
sé coco ko= “0 >:GENERAL REGI 
999001 Riz %1 es 
3 09002 ’ :: AL REG 
38 990003 R3= rx ::GENERAL REG 
100 990904 R4= “4 *:GENERAL REG 
101 oo000s RS= 4S ::GENERAL REGISTER 
102 000006 RE= “6 $3 L REGIST 
193 000907 R7= “7 :GENERAL REGISTER 
104 SP= “%& t eTACK POINTER 
105 000007 Pcs “7 *:PROGRAM COUNTER 
107 ,#PRIORITY LEVEL DEFINITIONS 
ide po00c0 RO= 0 
109 900040 
110 000100 
111 009140 
ile 609200 
113 o00240 


nn eee ~~ 


TALL MOTION TEST MAINDEC=11-DZTAD-C 
DZTROC . NE 6 00:09 


>-- 0+ &— B-+ p< 9 9 pp - + 


BIPRZOR Soa VOU Loewe rue 


+ 5 EO) 
—Ow 


0-0-6 b- b+ B- + 0-= B+ b= 8 9 b—« 9 F< 92 b— 0 92 b+ 9-2 0 9-2 Bo 
+ 
FLW 


ba tet tet ete tt ett at tw ete te 





MACY11 27(1006) 
BASIC DEFINITIONS 


30 


Mae REGISTER” SWITCH DEFINITIONS 


SWO0e, SW2 
SWO1, SWI 
5WOO, SWO 


;*DATA a DEFINITIONS (BITOO TO BIT1S) 
Tis 100000 


O44 4 4 4 

990000 
MALEAP IOSD 
DoOwWwMMwWwWM 
= 44-444 44-4 
MW) £1 ~300.0 
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SEQ 0020 





TY LEV L § 
TY LEV t ? 










TAL] MOTION TEST MAINDEC-11-DZTAD-C 
DZTADC.NE 6 O90: 


woul 


>-- 0 -< b= & -< &- 2 p= p= 9 oh 
Lis) 


SRR 2G ow 


Bw SRR LOH Spee 


iat 
REE 


1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
e 
e 


rurururururufvurvururofrur 
NOTU TOD ee 
WM -OWONMUICWTY 


“EQUIV Bf 


LONER “cour TRAP VECTOR ADDRESSES 


ESVEC= 10 
TSITVEC=14 
T 14 
BPTVEC= 14 
10 = 20 
PWRVEC= e4 
EMTVEC= 30 
TRAPVEC=34 
TKVEC= 60 


TPVEC= 64 
PIRQVEC=240 


MACY11 27(1006) 
BASIC DEFINITIONS 
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;TIME OUT AND OTHER i), 
ea AND ILLEGAL INSTRUCTIONS 


TRACE _T 
+ BREAKPOINT TRAP (BPT) 
33 INPUT/ /QUTPUT TRAP (IOT) **SCOPEx# 


WE 
; TEMULATOR TRAP (EMT) **#ERROR#* 
P* TRAP 
TY Y SEO eran 


Y PRINTER VECTOR 
S PROGRAN INTERRUPT REQUEST VECTOR 


fever be Me A Dl i at A 
pesesssasesTall ses onenatatnemeanme 


TACS= %4 
TADB= %S 


WRITE ae ~ FUNCTION 
WRITE FUNCTION 
sREAD FUN ee 
BACK SPACE FILE GAP FUNCTION 
: BACK it BLOCK GAP FUNCTION 
SPACE FWD FILE GAP FUNCTION 
SPACE FWD BLOCK GAP FUNCTION 
sREWIND FUNCTION 


11 BIT ASSIGNMENT Seseeeeees 





FUNC2+FUNC1+FUNCO 


SLILELTITTTATTALLT TT TALEDALLALLLELLATLTAEELEOEEVLTAEEEDLELELEATTED EL EEE 
SLLLLITILLTLL ELE LLALLTTTA TELE ELESAELEALLAALAAALALEETALATE TELE LAE 
;SPECIAL REGISTERS 


;R4 IS USED AS A POINTER TO THE TACS REGISTER 
;R5 IS USED AS A POINTER TO THE TADS REGISTER. 
SILIILTLLTLILLEEPLLLELELELSLETSEELEPEPELEAEALEEELEEALELELEEEREELLEL EL ES 





TALL MOTION TEST 
DZTADC.NEW 24-MAY-76 00:09 





000000 


000174 


pooiee 


0337 
000eS50 000137 


MAINDEC-11-DZTAD-C 
: TRAP CAT 


G: 
-SBTTL STARTING ADDRESS(ES) 
IMP a#BEGINI 






MACY11 27(1006) 23-SEP-76 10:33 PAGE 6 
CHER 
-SBTTL TRAP CATCHER 


D LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 


au fae oR PRE en VECTORS 


tISDFTMARE SuPTCH REG! 


ROGRAM 
d#BEGINe SELECT pa tv ta) BEFORE STARTING TEST 
AND a BEFORE TESTING 








d#BEGIN3 SELECT DRIVE(S) 

@#BEGINX s SETUP FOR_M 

deWF GSUB ;WRITE FILE GAP FROM BOT TO EOT 

d SWRTSUB WRITE CONTINUOUS BLOCKS OF ly 
a#ROSUB :READ CONTINUOUS BLOCKS OF DAT 

a #WGPBLK WRITE FILE GAP oe A BL 

d#RGPBLK ; READ —— OF DATA 

d#SFFGSB ; SPACE FWD FALE GAP FROM BOT TO EOT 
d#BSF GSB BACK SPACE FILE GAPS 


JMP 
: HEHEHE HEHEHE HEHEHE HEHEHE RE 












;; JUMP TO STARTING ADDRESS OF P 


OCK OF 
AND INTO A FILE GAP 









Ou MOTION TEST MAINDEC-11-DZTAD-C 
DZTADC.NEW  e4-MAY-76 00:09 COMMON 











000001 $MXCNT: 


weet 27( 1006) 
TAGS 


1 


[toretreseprasecerermncrocsvapenvanacenscs*sereseanqenmnnnenaas 
yh VARIOUS COMMON STORAGE LOCATIONS 


4 .SBTTL COMMON TAGS 
4 

a8 ijt 

esl SuSeD et THE P 


253 001100 .=1100 
254 001100 SCMTAG: :;START OF COMMON Tacs 
255 091100 $PASS: .WORD O : CONTAINS Pass ¢ 
256 001102 000 STSTNM: .BYTE 0 : CONTAINS THE reer y Rg 
257 001193 000 SERFLG: .BYTE 0 *:CONTAINS ERROR FLA 
258 001104 900000 SICNT: .WORD O ss CONTAINS SUBTEST sane RATION COUNT 
Sra Pott BbB000 St PERE: “WORD 5 ONTAIN URN FOR ERRORS 
ae $ s3 
5) petit BBBOBE SEpbar: .WOR : Se i ie Ee DETE TED 
262 OO1114 090 SITEMB: .BYTE OQ vie 
263 001115 001 SERMAX: .BYTE 1 CONTAINS A ERRORS: TEST 
264 OO1116 SERRPC: .WORD QO *:CONTAINS PC OF LAST ERROR INSTRUCTION 
265 001120 000000 $GDADR: .WORD 0 ss CONTAINS ABDRESS OF ’ * bat 
gb6 091122 9990 $8DADR: .WORD 5 5 CONTA INS ADDRESS OF "BAD? DAT 
67 001124 0 SGDDAT: .WORD ::CONTAINS GOOD’ DATA 
268 001126 900000 SBDDAT: .WORD 0 ssCONTAINS *BAD’ DATA 
269 001130 oo0000 .WORD O ::RESERVED--NOT TO BE USED 
270 001132 000900 .WORD 0 
271 OO1134 000 SAUTOB: .BYTE OG ;;AUTOMATIC MODE INDICATOR 
272 901135 000 SINTAG: .BYTE 0 +: INTERRUPT MODE INDICATOR 
273 001136 oo0000 .WORD O 
274 601140 177570 WR: WORD DSWR ;;ADDRESS OF SWITCH REGISTER 
275 001142 177570 DISPLAY: .WORD DDISP >: ADDRESS OF DISPLAY REGISTER 
276 OO1144 177560 TKS: 177560 :: TTY ST aT US 
277 001146 177562 $TKB: 177562 >: TTY KBD BUF 
278 001150 177564 $TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
279 001152 177566 STPB: 177566 -: TTY PRINTER BUFFER R $s 
280 001154 000 SNULL: .BYTE 0 ::CONTAINS NULL CHARACTER ILLS 
281 001155 002 SFILLS: .BYTE 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
82 O01156- die SFILLC: .BYTE ile ;: INSERT FILL C AFT INE 
283 001157 600 STPFLG: .BYTE O ::"TERMINAL AVAILABLE” FLAG (BIT<O7>=O=YES) 
284 O01160 oo0000 RE WORD OQ i CONTAINS THE ADDRESS FROM 
285 *:WHICH (S$REGO) WAS OBTAINED 
286 001162  o00000 REGO: .WORD O : CONTAINS ((SREGAD) +0) 
287 001164 900000 SREG1: .WORD 0 >:CONTAINS (($REGAD)+2) 
288 OO1166 900000 TMPO RD O s USER DEFINE 
289 001170 oo0000 TIMES :MAX. NUMBER OF ITERATIONS 
230 001172 o00000 ESCAP :ESCAPE ON ERROR ADDRESS 
291 0901174 177607 000377 SBELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
292 001200 077 QUES: .ASCII 727 $s RUSTON MARK 
293 001201 015 SCRLF: .ASCII (15> ARRIAGE RETURN 
234 O01202 o000le2 SLF: .ASCIZ <12> Pane F 
e355 eeeesin baat Stessaccneenesddsnoaa ei epeaaanaeeeezesaanan 
296 001204 oo0000 éAvec: .WORD 0 ; STORAGE FOR THE PC 
297 001206 o00000 BYTNUM: .WORD 0 -THE NUMBER OF BYTES “READ” OR “WRITTEN 
298 001210 o00000 RCRCO: .WORD O :CRC CALCULATED FOR “WRITE” 
299 O9le12 o00000 RCRCL: .WORD O :CRC CALCULATED FOR "READ" 
300 O8le14 000000 RCRC2: .WORD 0 ‘CRC FROM THE TAL] FOR “READ” 
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;MAX. NUMBER OF ITERATIONS 
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¥-76 00:00 COMMON TAGS 


= 
ee 
fururu 
roed 


sa B 


8 
3 


ste 


furore 
FES 


B 


So0000G008 
fur 
£5 


é 


att 


CWIGIGIGWGIGIWUUL 
OnNWUCWItUe-O 
ee 
<= 


+  - b= p= b+ 9-9 & 2 pe 


tft 
on 






SEQ 0024 





;LOW BYTE ADDRESS OF ACS 
A oP REE TAOS 





‘DRIVE SELECT KEY: 
;CURRENT DRIVE BEING TESTED 


FLAG 
;ORIVE “A” REWIND FLAG 
: DRIVE a REWIND FLAG 
STALL TIME 

























































poe 


001270 


001270 
001272 


001274 
001276 


001324 
001326 


001330 
001332 
001334 
001336 


001340 
001342 


o1ssso 
016112 


015054 
000000 


015576 
Oiblle 


015054 
000000 


5643 
blle 


50S4 
000009 


01 
01 
01 


015664 
Ol61le 


015054 
000000 


MAINDEC-11-DZTAD-C 
-MAY-7& 00:09 





; ITEM 


; ITEM 


; ITEM 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
sATHIS Me on CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*THE MATION + oe Taree BY USING THE INDEX ht 
/ALGbal Lon" mF HIS 


; *NOTEL: 
; ¥NOTE2: 
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SO THe ONL 


; IMPROPER FLAG SETTING 
:TEST ERROR 

PC BC TACS 
:SAVPC SERRPC $REGO 


HTest ERROR FLAG OCCURRED 


a TACS 
: SAVPC SERRPC $REGO 


7PC BC tacs. = 
:SAVPC SERRPC $REGO : 

s INTERRUPT FAILED 
:TEST ERROR 

: PC TACS . 
:SAVPC SERRPC $REGO 
sPREMPTURE READY OCCURRED 
:TEST ERROR 

7PC PC TACS 
:SAVPC SERRPC $REGO 


;DIDN’T STOP_IN A FILE GAP 
;TEST ERROR 
TACS 


ieares WHICH ATER 
Y PE 





DATA_IS ¢ 


F S$ TENG TS RTINENT 
EACH TEM tN THE TABLE CONTAINS 4 POINTERS. EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
POINTS THE DATA HEADER 


THE DATA 
;;POINTS TO THE DATA FORMAT 


E: ALL NUMBERS WILL BE TYPED AS & DIGIT OCTAL NUMBERS 





OUND _IN 
N THE oes IS PERTINENT. 


rot MOTION TEST 
DZTADC.NEW 24-NAY-76 00:09 


001344 
001346 


001404 
001406 


001410 
001412 
001414 
001416 
001420 
001422 


001424 
001426 








015054 
000000 
15747 
l61le 
015054 
000000 


6003 
6172 


91 
01 
015066 
000000 
016021 
016611 


015136 
000000 








MAINDEC-11-DZTAD-C 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


ITEMS2: 


m— ODO 
=r 

os 

tJ 


ome ovo 
205 °3 g 
- wo Ww 
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ERROR POINTER TABLE 


;SAVPC SERRPC SREGO SREGI 


Of! 


[ae | oe | m—- OOF OMmN OC 
iat) be —- 


ome 
Pe ape 4 
— 


= 
ul 


; ILLEGAL BUFFER 
; TEST 


;PC PC TACS 
;SAVPC SERRPC SREGO 


;SHORT RECORD 
;TEST ERROR 
;PC PC TACS TADB L 
;SAVPC SERRPC S$REGO SREG1 S$TMPO 
;BAD_INTERRUPT 

;TEST ERROR 

3P PC TACS 

;SAVPC SERRPC SREGO 


;ITEMS 201-202 

















test T ator ON CLEAR LEADER 


PC TACS TADB 
 SAVPC SERRPC S$REGO SREGI 





;BAD_ DATA READ 

;TEST ERROR EXPT’D RCV’D BYTE 
PC TACS DATA DATA NUMBER 

: SAVPC SERRPC SREGO SGDDAT SBDDAT BYTNUM 





ERROR 











;CRC_ERROR 
;TEST ERROR WRITE READ TUG 


:P PC TACS CRC RC CRC 
;SAVPC SERRPC $REGO RCRCO RCRCL RCRC2 





BYTES 
EFT 


3 TALL FAILED TO RESPOND 


:SERR PC T race 
;BOTH NUMBERS ARE TYPED AS OCTAL NUMPERS 


i DRIVES AVAILABLE 
 SERRPC 











TAIL MOTION re5° MAINDEC=11-D2TAD-C MACYL1 27(1006) 23-SEP-76 10:32 PAGE 11 
DITADS.NEW 0 B4=MAY=7§ 99:09 erent oF T 420 : Sea 
83! pte! PPFTFSPECLAEFAF ETSI STIS TASTE AAS AA GAGAS SPISPLIITSDLELELUAPLSAEEDALASS A 
432 ASIPASLASAPLIEGTATEREPTTAT EAST A POST PSEESTS ELIE ES VAL EAST TA SES ATS 
433 ,  SEPREREEESESERESSSSPROSSEORESERSSE RS. PRRSEEEESESESESSE SSS 444594 
$34 
435 :BEGINI IS FOR NORMAL fret 
436 :SEGINE IS FOR DRIVE SEL 
43: :BEGINS I5 FOR DRIVE § rae SELECTION 
438 :BEGINY IS FOR MANUAL OPERATION 
my 33 SSRESRESSSRSRAERSESSSSRES LESS LSSSRSSESSSASSS SASS ( HHSASSSSASSSSLSESS 
=~ 
442 901450 309295 _. BEGINI: CLR RS :NORMAL START 
443 001452 012737 041101 01240 MOV #"AB, J8ORVKEY 
wHs 051460 i22737 0000S of0d4: CMPB gS, DBYL sCASSETTE COP 
sus Sites 952018 E BNE MN :G0 BEGIN SOHN CODE IF NO 
e4 OO1470 Dee737 o00260 901230 C 8260, JSTAVEC ‘STANDARD VECTOR? 
we Bie BTS Bball a Sa SE 
<5 ‘ J 
448 SptE88 Pros32 000001 BEGIN2: MOV we acu ASK FOR ‘BRrves FLAG 
#29 301506 S040 R B3hcin sBEGIN COMMON CODE 
451 OO1510 O12e705 o00002 BEGINS: MOV #2 ASK FOR DRIVES AND ADDRESSES 
45e 001514 900402 oe a BEACH 
#53 001516 O12795 oD0003 BEGIN: MOV #3,P5 
“SS 901522 QGNCMN: 
355 . .S87TL INITIALIZE THE COMMON TAGS 
~EE : >:CLEAR THE COMMON TAGS (SCMTAG) AREA 
45? 001522 O12796 001100 MOV a3CMT TAG, Re ssEIRST LOCATION TO BE CLEARED 
#52 001526 O0502€ CLR (RE)+ >:CLEAR MEMORY LOCATION 
453 901530 022708 001140 CMP aSuR, R& ;;DONE? 
| 468 003538 90137 BNE ~ OOP BACK IF NO 
461 O0153¢ S12706 901100 MOV ssTA tee the THE Fate POINTER 
462 ss INITIALIZE A FEW VEC +3Rs 
463 COlSS2 012737 OD6600 900020 MOV asscOre QBIOTVEC :;20T VECTOR FOR SCOPE ROUTINE 
464 OO15¢5 912737 600349 900022 MOV astoTvec+e ;:LEVEL 7 
WES BOISSE 915737 8070SE 600030 MOV “3 PRaSR DBEMTV Ect :;EMT. VECTOR FOR ERROR ROUTINE 
| 458 O0154 018737 000340 d0003e MOV #340, aeENTVEC+e ; LEVEL 7? 
467 991572 012737 0145€4 690034 MOY BSTRAP. a8TRAPVEC . TRAP VECTOR FOR TRAP CALLS 
468 001600 512737 OO0340 90003¢ MOV #340, JRTRAPVECS 3,CEvEL 
463 OO1606- 012737 014672 900024 MOV 8SPWRDN, J8PWRV Ff ‘Ou FAILURE VECTOR 
470 OS16i4 912737 O00340 c000e6 MOV #340, SBOWRVEC+O ss LEV EL 
47] COle22 816767 804574 so4ses4 MOV SENDCT , SEOPCT SETUP _END-OF-PROGRAM COUNTER 
u72 901635 505067 177334 CLR STIMES *: INITIALIZE NUMBER OF ITERATIONS 
| #73 901834 905067 177332 L SESCAPE tI CLEAR THE ESCAPE ON ERROR ACORESS 
| 474 801640 112767 O0000! 177247 MOVE 81, SERMAX ss ELOM ONS ERROR PER ‘ 
w7S SOle4e 012767 OO1646 177232 MOV 8. + $LBBOR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
| 476 BOlESS O12767 OO1ESH 177226 MOV SETUP THE ERROR LOOP ADDRESS 
| 477 +s SI7E FOR A HARELAE ite geciiten F NOT FOUND OR IT IS 
| 478 ::EQUAL TO A "=|" uP FORA SOF THARE Te ntcH REGISTER. 
| 73 OOl662 013746 oD0004 MOV dbesbvec -(SP) :;SAVE ERROR VECTOR 
| 480 OQOI686 012727 O01722 opo0o4 MOV ai SHERRVEC iter uP ERROR V 
| 481 001674 018767 177570 177236 MOV ry :SETU FOR, a HARD SHORE SWICH REGISTER 
462 001702 012767 177670 177232 MOY SIS? DISPLAY : AND a he WARE DISPLAY REGISTER 
| 483 O01710 O22 177777 1?7e2e CMP a-1, ISUR eeTRY TO NREFERERICE HARDWARE SHR 
| 489 801716 O8fo1e BNE &$ ::BRANCH IF NO TINEOUT TRAP OCCURRED 
| 485 ::AND THE HARDWARE SWR IS NOT = -1 
| 466 001720 coo4o2 — S$ _- BRANCH TF NO TIMEOUT 
| 


0027 








C03 
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TNITIALISE THE COMMON TAGS 





09 
29 
oO 
05 
09 
09 


oO 


Oo 


fatetarel 


f 


ume 
nt tt 
~-( 2.01 


a ee em Ne eR a 


rey - $658,(SP) = = 5;SET UP FOR TRAP RETURN 
MOV sSuR s:POINT TO SOFTWARE SWR 
MOV ab iSPREe. DISPLAY 

MOV (SP}+, DERRVEC ; ;RESTORE ERROR VECTOR 


TYPE PROGRAM NAME 
THE NAME Pape PROGRAM IF Pinar raaes 


i H ; 


BNE HERE ;;BRANCH IF NO 
cP BENOAO, asd erect? 
eee. ASE ID Pe ASUIZ STRING 
GET veut FOR SOFTWARE sites REG is TER 
TST 842 WE RUNNING UNDER XXDP/ACT? 
BNE 25 +1 BRANCH IF YE 
CMP SwR, aSWREG ::SOFTWARE SWITCH REG SELECTED? 
BNE £93" :: BRANCH 
BISHR Sia !:GET SOFT-SWR SETTINGS 
MOVB #1, SAUTOB jen AUTO-MODE INDICATOR 


HERE OVER_THE ASCIZ 
SASCIZ <CRLF> white C-11-027AD-0 7 CRLE> 

















4 
~~ 
oS 
oz 

oo 

4 
=o 


©-4 
altars) 
TU TL) OO 0+ b+ p-- b+ 9-2 pe 
eC ).000 “HU £ Got 


et titi 


~~) 


BeHSEVS LT ctv 


oO 
Oo 
tu 
-- 
wm 
£ 


f-7§ 00: 


007432 


007542 


002112 00004 


177119 


O0CO56 


000002 


oo004e 
- 006442 





ae — at sad gPAD a REET ol seg x 


5 5 RRERAARARRER SAAR LEA SAA AEL SEARLS ALLEL AES REA AA ASSAF RL ELS LESS SSS 
5 RRRRRRAAA REAR RASA L ERA RAR AE RARE RARE AR LAR LEL FARE LER AES REELS SLASH 


sTHE CONTENTS OF RS DETERMINES WHAT WILL BE DONE 

RS=3 MANUAL OPERATIONS 

; R5=2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 

; Re=l ARK FOR DRIVE(S) 

; R5=0 DON’T ASK FOR ANYTHING 
jiteeeseeenennaseneaeaeenesnenenessaconssuennseaesesanensntess 


iit INX: MOV RS, R4 :COPY RS 
5 RS :ASK FOR DRIVES? 


EC 

BLT CHKADR 

JSR PC, J#ASKDRV , 60 GET “DRIVES TO BE TESTED 
DEC RS’ ; ASK FOR ADDRESSES? 

BL CHKADR ;BR IF_N 

Js PC, J8ASKADR : GO er" TAL! ADDRESSES 


jp RERRRAEREAAREREEEEEREEEEREAREEELEAEEREEA PEERS EE EERE RE SOE EE REDE 
5 SERSLERELELATSRELLALLERLASLELLLELLLALEFLALLRSAARFASLALLLALLSEEE 


CHECK THAT “TACS” WILL RESPOND TO ADDRESSING 


+P TIMEQUT OCCURRED 
: A. TYPE ERROR MESSAGE 
: B. EXAMINE RY 


1. R40 GOTO BEGINX 
2: R4=Q EXAMINE (42) 

; A. (42)=0 GOTO BEGINX 
B: (42)>0 GOTO SENDAD 


$11. TINEQUT DIDN'T OCCUR 
* CONTINUE 


5 EERE RSE RARER RARE RRR RE REE ARE RARE AER EERE EEE E ERE E EEE EE EERE ES 


ijanerene OV #1$, J#ERRVEC sIN CASE OF TIMEOUTS 
CLR  R :USE AS A SWITCH 
TST ZTACSL : SEE IF TALL RESPONDS 
BR 2$ ; NO TIME 

1S: INC RO Fone HERE ON TIMEOUT 
CMP (SP + :CLEANUP THE STACK 

23: MOV WeRAVECSD. SeERAVEC =RESTORE TIMEOUT VECTOR 
TST RO 3DID A TIMEOUT OCCUR? 
BEQ 3$ BR IFN 
ERROR 201 FAILED TO RESPOND 
MOV #2,R5 ORT ES & ADDRESSES 
TST RY ; OPERATOR INPUTS? 
BNE BEGINX 
MOV ae4e2, RO GET HONE TOR RETURN ADDRESS 
BEO BEGINX :88 IF F NO NO ONITOR 


IMP @*#SENDAD :G0 7 

















wi 


PERE Bee Seth Pai ees oe 
tf 


8 





BOER 
. 
& 


Dearie tales calialeal cal ial sal cal tal 
+ 0 0-0 0 0-2 8 


WONMUCWrue-Ow 
© 
oO 
fu 
S 


i MOTION TEST 
Stine . NEW 





24-MAY-7§ 00:09 


001249 
006474 


00c001 
006474 


008474 
001240 
001244 
000001 
000001 


000002 


o00d4e 


006442 
000003 


175471 
O0ie46 


002024 
001240 + 001244 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


ff RRERR RRA REERRAS RRA R RAL EERE HR ARAA REAL RRA LARA AALS ERA FALL REL ERL ZALES 
ff RRRRRAR REAR RAL R RLS RA ARAL RA AEA RRA L REA RARE LAL SE RAE RES AALS SRE ASRASE 


;MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 


1. DESIRED DRIVES CAN NOT BE TESTED 
; B. TYEE ERROR MESSAGE 


1. R40 GOTO BEGINX 

2. R¥=0 EXAMINE (4 
A. (42)=0 EoT0 BEGINX 
B. (42)>0 GOTO SENDAD 


;II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 
: A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 
B. CONTINUE IN PROGRAM 


rrr. DESIRED DRIVE(S) CAN SE TESTED 
CONTINUE IN PROGRAM 


a 
, 
. 
4 
3 
‘ 
, 
. 
& 
. 
" 
, 
’ 
; 


ORV: HOV ORVIEY RO OPICKUP COORESS OF fect 


Te ge #DRVKEY .R :PICKUP ADDRESS OF ASCII DRIVE KEY 
Men PC, MAEXARC G0 EXAMI NE FIRST DRIVE 
BR :0K TO TEST “got CHECK NEXT 
MOVE  1(RO), (RO) !REPLACE 1ST WITH 2ND 
BEQ 2g :BR IF NO PND ORIVE SELECTED 
ISR PS, 2#EXAM 360 EXAMINE DRIVE 
aR 2$ K TO TEST 
cLR (RO) CLEAR DRIVE CODES 
13: INC RO zP01 NT TO 2ND 
ISR PC, J8EXAM Se TOTES DRIVE 
BR es 
CLRB —ss« CRO) :QK NEAR 2ND 
28: MOV #ORVKEY, RO ;RESET ADDRESS POINTERS 
MOV RO, J8ORVPNT 
CMPB. Ss (RQ) , 1( RO) ;1ST = 2ND? 
BNE $ :BR IF NO 
CLRB =: L( RO) :YES=--CLEAR 2ND 
33: TST (RO) ZANY DRIVES? 
BEQ S$ ‘BR IF 
8R MANUAL 
S$: ERROR 202 :NO DRIVES AVAILABLE 
MOV #2,R5 :DRIVES & ADDRESS 
TST RY S OPERATOR INPUTS? 
BNE BEGINX :BR IF YES He 
MOV ade, RO GET MONITOR RETURN ADDRESS 
REQ BEGIAX :NO MONITOR 
IMP JSSENDAD :GO TO END 
MANUAL: CMP R4, #3 
BNE OK 
MOY =1,R4 
OK: MOV R4’ JHASKKEY 
BR START 
WRST: TYPE MSGID ;POWER FAIL RESTART 


MOY KORVKEY , J#DRVPNT 


SEG 0030 














TALL MOTION TEST 
DZTAOC. NEW 


Ole??? 


td 
2- 
— 

yt 


Oouw 
—— J 


Sap Re aeaee 


8 —— = 

— “J 
~ 

Ww wo 

— Ngee E 


012366 176674 START: MoV sBADINT JTAVEC :SETUP TALL TRAP VECTOR 
0} 4 178670 MOV ay aTAPRID aTAVEC+ ) 
A360 177776 MOV 5 sLOCKOUT ALL 1/0 INT 
001220 MOV aeTatee TACS SETUP TACS 
001224 MOV JaTADBL : : SET 
01102 CLR aaSTSTN| :ZERO THE TEST NUMBER 
O0b&24 . SLR JBLOOPKEY ;CLEAR THE LOOP UNDER TTY CONTROL KEY 
00000: oo1216 MOV #1 SESIXCNT -SET FOR BNE ITERATION PER TEST 
091244 MOV a4ORVP ‘GET DRIVE POINTER 
76630 MOV NIE’ :SET DRIVE TO POINTER 
s/ t/t FD» Pe eer hy orb, ROE OEE | SB 4b, Be Dy yah, p Peeper re 
:TYPE THE DRIVE(S) THAT WILL BE TES” 
001250 MOVE  (R1), a#CURDR ;GET CURRENT DRIVE FOR TYPE-OUT 
015271 TYPE sATStO RV ‘TYPE “TESTING D 
001250 - TYPE CURDRV ‘TYPE THE CURRENT DRIVE 
000208 176510 BIT &SWO7, ISWR sLOCK ON ONE DRIVE? 
001241 | ists DHORVKEY+1 ; TWO DRIVES AVAILABLE? 
001216 ° INC DaSMXCNT - :SET FOR TWO ITERATIONS PER TEST (ONE PER DRIVE) 
INC Ri MENT THE PO 
091250 MOVB = (R1), 2#CURDRV Set SECO. 2 DRIVE: OOF RYPE-OUT 
. BNE 1 :G0 TYPE IT 
091240 MOV #ORVKEY,R1 sRESET POINTER 
091259 MOVE  (R1), a8CURDRV W GET THE SECOND DRIVE 
O153le 18: TYPE »MANDRY HYPE "AND DRIVE” 
001250 TYPE CURDRV TYPE OR 
601244 2S: MOV RI. J#DRVPNT :SAVE POINTER FOR NEXT TRIP THRU 
992709 001106 MOV acs JESLPADR sag ‘SETUP THE SCOPE LOOP RODRESS 
001160 ist a4s SPAS :ONCE ONLY 
WAAL AE Hof NC et eee EERE RM Chie AE. OCI 
ON THE FIRST PASS OF THE PROGRAM DETERMINE THE AMOUNT OF TIME TO 
“WAIT ON A FLAG ("READY"/“TRANSFER REQUEST") AND THE STALL TIME TO USE 
WHEN STALLING AFTER A FUNCTION IS COMPL ETE + nee 
002716 001172 MOV #FATAL, JUSESCAPE SETUP ESCAPE ON ERROR 
176526 CLR ORWOFLG :SET FOR NO REWIND ERRORS 
Or77r7 012022 MOV #tCBIT1S, J8MAXCNT :SETUP IMPOSSIBLE COUNT 
00016 MOVB —- 8XRWND, JTACS : INSURE NO ERROR DUE TO “CLEAR LEADER™ 
REWIND ; G0 TO BOT 
WFG NOW TIME 9 WFG 
012020 012022 SUB QRHICNT, DSMAXCNT :GET THE TIME IT TOOK TO WEG 
012022 INC JeMAXCNT :MAKE: IT BIGGER 
Oled2e ROL aeMAXCNT 
Ole022 ROL DANAXCNT 
002632 176426 MOV #4$, JTAVEC s SETUP TALL VECTOR 
000101 MOVB  &XWFG!INT.EN!GO,aTACS ;START A “WFG" 
177776 CLR aePs ‘ALLOW INTER 
000001 3S: SUB #1,R0 :START TIMING HOW LONG 
SBC Ri _ ? JT TAKES TO WRITE A FILE GAP 
000340 177776 MOV 3340 aaPs sLOCK OUT INTERRUPTS 
BR FATAL sIT TOOK TO LONG 


MAINDEC-11-DZTAD-C 
e4-MAY-76 00:09 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 





SEQ 0031 


























Bote NERY Bh -nav-7g AGLAREC EE -O2 TAO Ear ue ELA SBE THORE cuffcneRectsTeg’ => PAGE 16 , SEG 0032 
















06 4g: BSR R :DIVIDE THE TIME BY 2 

1 001264 MOV RO, J#STALL sAND SAVE IT AS THE STALL TIME 
010137 O01266 MOV R1. JHSTALL+2 
012777 012366 176354 MOV #BADINT, JTAVEC ;SET TRAP CATCHER 

105737 O01241 TSTB  a#DRVKEY+1 5 THO DRIVES? 
001407 SEQ St *BR IF N 

104422 SELDRV :SELECT THE OTHER DRIVE 
005077 175366 CLR QRWOFLG SET REW git 

112714 OO0016 MOVB —«- &XRWND, JTACS *AVOID ™ LEAR CEADER™ ERROR 
10HNe REWIND -G0 TO B 
Apdais 001246 cs: i Q#ASKKEY $8 19.98 TE scone. IF NO MANUAL 
002034 BGE TST1 : OPERATIONS REQUESTED 











005000 RO 
006137 Ole022 ROL aeMAXCNT ; INCREASE THE WAIT TIME 
000009 HALT . GIVE CONTROL TO THE OPERATOR 














104401 002724 TYPE 65$ 3s TYPE ASCIZ STRING 
000414 BR 43 * GET HE ascIz 

je5s: "ASCIZ <15><12>4FATAL ERROR ON DRIVE x 
104401 001250 TYPE CURORY sCURRENT DRIVE 
013700 opcd4e MOV de42 :CHECK FOR A MONITOR 
001402 BEQ 1$ *BR IF NONE 
900137 ocos44e IMP SESENDAD 





;LEAVE 
000000 1S: HALT :ERROR OCCURRED BEFORE TESTING STARTED 
BR 1§ HANGUP 


. 
9 








m 
24 


pampec vshoaens 
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REWIND, WRITE, REWIND, READ 


i” «hme wen 


: TEST l REWIND, WRITE, REWIND,R 
jeuteatyeesnennnneaneinensedseasesbanea se ceaeeneaneateateatent™ 
176164 "MOV #TST2,SESCAPE ;;ESCAPE TO TEST 2 ON ERROR 
SELDRV ;SELECT DRIVE FOR TESTING 
REWIND all G0 TO “CLEAR LEADER” 
REWIND G0 niet SPINNING OF TAPE 
READ =, RLNK1 :READ 
BLKCMP :COMPARE THE READ AND WRITE BUFFERS 
RLNK1 *LINK TO THE READ SUFFER 


WLNK1 NK TO THE WRITE BUFFER 
EPP ane nearenenennenreneapeasenenesbenneneenenezenceneites 
T BSBG AFTER WRITE AND READ AFTER 
c SHASSAREURNUASTEATEESEDEETSESEEESEROSESESSESSSSSESTSSHEEEEEH 


tét2 


SCOPE 
176136 MOV STST3.SESCAPE ;;ESCAPE TO fest 3 ON ERROR 
SELDRV i SEL ECT DRIVE FOR TESTING 
REWIND ;G0_ TO “BOT” 
WRITE  ,WLNK1I WRITE ONE BLOCK 
G BACK OVER THE BLOCK 
READ »RLNK1 sNOw READ 
BLKCMP COMPARE THE READ AND WRITE BUFFERS 
RLNK1 BUFFER 


LINK TO THE READ 
WLNK1 LINK TO THE WRITE BUFFER 
| PRE eeeesaenannesdinnentiainieneaieneness 
TEST BSFG AFTER WRITE AND READ AFTER 
Lesitabyannasensnaneaneaeaananeanineenes nen ee ne He Ne Ee HERESY 


ii 
178074 MOV STST4Y,SESCAPE  ;;ESCAPE TO TEST 4 ON ERROR 
SELDRV ;SELECT DRIVE FOR TESTING 
REWIND :G0 TO “BOT 
WRITE ,WLNKI WRITE ONE BLOCK 
BSFG ;BACK OVER THE BLOCK 
READ »RLNK1 NOW READ - 
BLKCMP _. #COMPARE THE READ AND WRITE BUFFERS 
RLNK1 sLINK TQ THE READ BUFFER 
LINK TC THE WRITE BUFFER 


WLNK1 
|e eer rrneneearennenerreneebianentenreneanensententy 


TY TEST BSBG AFTER READ 
5 ERRE RK E EKER AAA H AEE KLARA REE EEE A EK AREER EEE E AER REE AEE ERRRES 


? ute 


SCOPE 
176040 © MOV #TSTS,SESCAPE  ;;ESCAPE TO TEST S ON ERROR 
SELDRV : 3SEL LECT ORIVE FOR TESTING 
REWIND TO “BOT” 
WRITE ,WLNKI : WRITE QNE BLOCK 
REWI : OQ TO “BOT” 
READ »RLNK1I 
BLKCMP COMPARE THE READ AND WRITE SUFFERS 
RLNK1 sLINK TQ THE READ BUFFER 
WLNK1 LINK TO THE WRITE BUFFER 
BSBG 58 CK UP 
READ »RLNK1 READ 
BLKCMP } COMPARE THE READ AND WRITE BUFFERS 


RLNK1 ;LINK 10 THE READ BUFFER 












761 
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ZTADC.NEW  24-MAY-76 00:00 TEST BSBG AFTER READ SEQ 0034 


003170 017022 WLNK1 LINK TO THE WRITE BUFFER 
sseueneanlenlacusnoseneewcnnsvecneevenunlitottatttenniestieees 
5 TEST BSFG AFTER READ 
© RELRAAALE LARA E ELLA RAHA AL LER RE LEEKS KAA LER SRA AA KEAHEKA SSK RKELEE 
903172 oo0004 us SCOPE 
003174 12767 003242 175770 MOV. -&TST&,SESCAPE ;;ESCAPE TO TEST 6 ON ERROR 
i Hee SELDRV ; SELE LECT DRIVE FOR TESTING 
017022 WRITE  ,WLNKI RITE 0 A BLOCK 
003212 104421 REWIND :GO TO “BOT” 
003214 104414 O16766 READ  —_, RLNK1 sREAD A BLOCK 
3220 104423 BLKCMP *COMPARE THE READ AND WRITE BUFFERS 
003222 018766 RLNK1 *LINK TO THE READ BUFFER 
3224 017022 WLNK1 LINK TO THE WRITE BUFFER 
003226 104415 BSFG - *BACK OVER THE DATA 
104414 016766 READ , RLNK1 : NOW READ THE DATA 
RLNKI : TO THE 
003240 017022 WLNK1 *LINK TO THE WRITE UEFEER 
sccsnaahanlemenemmatneusmmuntnaeeiaansttionetaretarktnon 
STEST 6 TEST SFBG AFTER REWIND AND BSFG AFTER SF 
= SLLLE KRHA LE KARA AEA LL AL EKRA LEELA EA RAA RELA REALE RAASR ELSA LE RAEESE 
003242 900004 +éTg: SCOPE 
093244 012767 003302 175720 MOV #TST7,SESCAPE ;;ESCAPE TO TEST 7 ON ERROR 
3252 104422 SELDRV ;SELECT DRIVE FOR TESTING 
903254 10442! REWIND "GO TO “BOT™ 
003256 13 017022 WRITE ,WLNK1 sWRITE ONE BLOCK OF DATA 
3262 104421 REWIND *GO TO “BOT™ 
003264 104420 SFBG :SPACE OVER THE DATA 
3266 104415 BSFG *BACK OVER THE DATA 
002270 104414 O16766 READ _—,RLNK1 ;READ THE BLOCK 
03274 104423 BLKCMP :COMPARE THE READ AND WRITE BUFFERS 
003276 016766 RLNK1 sLINK 19 THE READ BUFFER 
003300 017022 WENK1 LINK TO THE WRITE BUFFER 
» 9999658 965 95690969696 9606099069606 96 9600 EEE 
tETEST ? TEST WRITE AFTER READ 
UU EHEHE HEHEHE HEHEHE HEHEHE HBB HEHEHE HEE HUH EGE OE 
003302 900004 +417. SCOPE 
003304 012767 003356 175660 MOV #TST10,SESCAPE ;;ESCAPE TO TEST 10 ON ERROR 
g033i2 104422 SELDRV ; SELECT DRIVE FOR TESTING 
003314 1 REWIND 0 TO "CLEAR LEADER™ 
003316 194413 017022 WRITE  ,WLNKL : WRITE ON a OCK 
003322 104416 BSBG ;BACK OVER THE DATA BLOCK 
003324 104414 016766 READ  — , RLINK1. READ 
30 104423 BLKCMP to READ AND WRITE BUFFERS 
003332 016766 RLNK1 ’ =LINK TO THE READ BUFFER 
. ‘LINK TO THE WRITE SUFFER 
33 017026 WRITE  ,WLNK2 WRITE A SECOND 
003342 104416 BSBG sBACK OVER IT 
344 104414 016772 READ _—, RLNK2 
3350° 104423 BLKCMP . “COMPARE THE READ AND WRITE BUFFERS 
3352. 016772 RLNK2 "LINK TO THE READ BUFFER 
003354 017026 WLNKe "LINK TO THE WRITE BUFFER 
PETES TT TTEUT TT TTT SCTE ST TTT TTTT TEST TTT TTSTSSTTT TESST TEES ET ETS S TE 
. T 10 TEST WRITE AFTER WRITE AND READ AFTER RE 
$j RERRERRRE ARERR ER AREA LEAR ERE R ALLA ARLE ARR RRRAA AERA AERA ELAR RR AER 
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DZTADC.NEW e4-MAY-76 00:09 T10 TEST WRITE AFTER WRITE AND READ AFTER READ SEQ 003s 
B18 00 bie7e? coswee i7seoy hove wTSTLL, SESCAPE ;;ESCAPE TO TEST 
gig ppssee A538 SELDRV ' SELECT. pRIVE FOR FOR ESTING 
820 003370 104421 . REWIND G0 TO “CLEAR LEADER” 
821 003272 104413 o17022 WRITE  ,WLNK ‘WRITE Taos BLOCKS 
§22 76 104413 017026 WRITE  ;WLNKe 
823 O2 104421 REWIND :G0 TO BOT 

003404 104414 O16766 READ ,RLNKL - READ BOTH BLOCKS 

825 oo34i9 104414 016772 READ | RLNK2 
826 003414 104423 _ BLKCMP ;COMPARE THE READ BND WRITE BUFFERS 
827 O03416 big77e RLNK2 sLINK 19 9 THE READ BUF 
828 003420 317026 WLNK E BUFFER 
SES $ Lepeeerenneaneaneeeapeenneyseapeasseuberneannenvenneaneestene 
830 ‘ETE TEST BSBG AFTER BSB 
831 jeeneescayceavenneueeanteneeneeseeseeaeneaseentesteeseesteat 
Be o03422 900004 téT11: SCOPE 
833 bosHe4 12767 003464 175540 as #TST12,SESCAPE ;;ESCAPE 29, TEST 12 ON ERR Bites 
835 opss4 1paas4 REWIND : $e5t ie "CLEAR LEADER™ 
836 003436 104413 017022 WRITE  ,WLNK1 WRITE TWOC2) BLOCKS 
837 OO3442 104413 917026 WRITE > WLNK2 
838 OO3446 104416 BSBG ;BACK OVER THE 2ND BLOCK 
839 O034SO 104416 BSBG _ $BACK OVER THE IST BLOCK 
840 003452 104414 016765 READ  —, RLNK1 ;READ THE 1ST BLOCK 
841 03456 104423 BLKCMP _ = COMPARE THE READ AND WRITE BUFFERS 
842 903460 016766 RLNK1 - $LINK TO THE READ BUFFER 
843 O03462 017022 WLNK1 “LINK TO THE WRITE BUFFER 
B44 $ jTHEROOASASEARARSASSSSESEEAELEEEEEAHLEAEEAEEEEEREEEEREAEE ORE EEEE 
chs) TES TEST READ AFTER SFBG 
Sag ceapeeneneeaeeatenteneestestossesseneeaneaseastescensenteateans 
847 003464 o00004 téti2: SCOPE 
848 O03466 012767 003526 175476 MOV #TST13,SESCAPE ;;ESCAPE TO TEST 13 ON ERROR 
849 003474 104422 SELDRY ;SELECT DRIVE FOR TESTING 
850 003476 104421 REWIND :G0 TO "CLEAR LEADER™ 
851 003500 104413 017022 WRITE  ,WLNKI :WRITE TWO(2) BLOCKS 
852 003504 104413 017026 WRITE  (WLNK2 
853 003510 104421 REWIND BOT 
854 0032512 104420 SFBG :SPACE OVER THE 1ST BLOCK 
855 003514 104414 016772 READ —, RLNK2 :READ THE 2ND BLOCK 
856 003520 104423 BLKCMP :COMPARE THE READ AND WRITE BUFFERS 
857 002522 616772 RLNK2 *LINK TO THE READ BUFFER 
858 0032524 017026 WLNK2 LINK TO THE WRITE BUFFER 
gs3 : Seiten nearer ne praneaiineantantannentaneanens 
860 TE TEST SFBG AFTER BSBG 
861 eepvenpeeavennveanenneesneestenneeseenseeateaseeateatenteant#y 
862 003526 OO0004 +6713: 
863 003530 012767 003572 175434 ay #TSTI4,SESCAPE ;;ESCAPE TO TEST 14 ON ERROR 
864 003536 104422 SELDRV ;SELECT DRIVE FOR TESTING 
BES 003540 1044el REWIND ?GO TO “CLEAR LEADER™ 
BEE 42 104413 017022 WRITE  ,WLNKL WRITE TWO(2) BLOCKS 
867 OCO3546 104413 017026 WRITE  ;WLNK2 
868 O035S2 104416 BSBG ;BACK SPACE OVER BOTH BLOCKS 
B69 003554 104416 BSBG 
870 O003556 104420 SFBG :SPACE FWD OVER 1ST BLOCK 
871 003560 104414 016772 READ  —, RLNK2 READ 2ND 






87e 9035 BLKCMP ; COMPARE THE READ AND WRITE SUFFERS 
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petAoc NeW e4-MAY-76 00:0 T13 TEST ar6G ATER BSBG 


OOseER Bi6?7e res sL INK 18 ie ee a fas 
17026 WLNK ;LINK TO T UFFER 
ee ee ee eerie ert ere 
tk EST 14 TEST SFBG AFTER BSFG 
FFT sit +3* liebe 
003634 175370 MOV STSTIS,SESCAPE ;;ESCAPE TO TEST 15 ON ERROR 
;SELECT DRIVE FOR TESTING 
360 TO “CLEAR LEADER” 
0170e2 WRITE arate SWRITE TWO BLOCKS 


0170e6 » WLNK 
BSFG ;SPACE REV FILE 
SF ; SPACE ne BLOCK 
016772 READ =, RLNK2 sREAD T BLOCK 
COMPARE THE READ AND WRITE SUFFERS 
LINK TO THE READ BUFFER 
WLNKe INK TO THE WRITE BUFFER 
EHH HHHEEB HEHEHE HHH HEHEHE HEHEHE HE SHES 
iT TEST 15. REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A RITE AFTER WRITE 
nS sar 2 ‘sagan ane mata ciara er ees cena meeme si 
004026 MOV #TST16, SESCAPE =, TO TEST 16 ON ERROR 
sae GeT ae f eee ING 


017022 . WRITE  ,WLNK1 S WRITE 2 BLOCKS 
017026 _ ,WLNKe 
BSBG ;BACK OVER BOTH OF THEM 


SB 
016766 READ »RLNK1 ;READ THE FIRST ONE 
:COMPARE THE READ AND WRITE BUFFERS 
;LINK TO THE ne BUFFER 
NK_TQ ne WRITE BUFFER 
016772 READ »RLNK2 : NOW READ _T NE 
: COMPARE THE READ AND WRITE BUFFERS 
NK TO THE R FER 


. BSBG ;BACK_OVER T: 
017032 , a le OVER THE 2ND BLOCK 
iNOW WW BACK UP AND 
016776 


IT 
* COMPARE THE READ AND WRITE BUFFERS 
sLINK Mt THE te: BUFFER 

TO THE WRITE BUFFER 
BACK OVER IT AGAIN 
SAND WRITE OVER IT AGAIN 
38 AND 
READ THE BLOCK 
; COMPARE THE READ AND WRITE BUFFERS 
sLIN READ BUFFER 


OwWnOWnoOWOWWwWW 
ee ee ee ee ee ee ee oe 
Cow NOMW CWT 


ITE BUFFER 
BSBG VER THE BLOCK AGAIN 
017026 ; SAND ee OVER IT AGAIN 


016772 . EAD IT . 
‘COMPARE THE READ AND WRITE BUFFERS . 


sLINK TO THE READ BUFFER 





TALL MOTION TEST 
DZ ~NEW = GH-MAY-76 


003774 017026 


O04e02 017032 


MAINDEC-11-DZTAD-C 
T1S 


00:09 


016766 


016772 


ATE 
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REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER WRITE SEQ 0037 
WLNKe ;LINK TO THE WRITE BUFFER 
Bees ; BACK OVER BOTH BLOCKS 
READ »RLNKI ;AND READ THE 1ST ONE 
BLKCMP ;COMPARE THE READ ae. pBITE BUFFERS 
RLNK1 sLINK 1 THE READ BUF 
WLNK1 3L Q THE WRITE BUFFER 
READ »RLNK2 BND. Me 2ND 
BLKCMP ;COMPARE THE READ AND WRITE BUFFERS 
RLNK2 sLINK TO THE READ BUFFER 
NKe “LINK TO THE WRITE ourren 


jteHRHREHnnEeneees neneneneeneenennesliteeeee Ee ee eee He Etat eee 


REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A WRITE AFTER REAC 


LEateH ee steaneaeeensaneenseeseed ne dPEH EEE EeEEEI TEA TEOEEI 


tétic: 


004204 175134 


017022 
016766 


017026 
016772 


017036 
017002 


017042 
017006 


017032 


016766 


016776 


#TST17,SESCAPE ;;ESCAPE TO TEST 17 ON ERROR 


SELDRV SELECT DRIVE FOR TESTING 
REWIND :G0 TO “CLEAR LEADER” 

WRITE  ,WLNKI WRITE A BLOCK OF DATA 

BSBG ;BACK OVER IT 

READ —, RLNK1L EAD IT 

BLKCMP ; COMPARE THE READ AND WRITE BUFFERS 
RLNK1 ‘LINK TO THE READ BUFFER 

WLNK1 :LINK TO THE WRITE BUFFER 

WRITE  ,WLNK2 :WRITE 2ND BLOCK 

BSBG $BACK OVER IT 

READ —, RLNK2 :AND READ IT 

BLKCMP ; CONPARE THE READ AND WRITE BUFFERS 
RLNKe LINK TO THE READ BUFFER 

WLNKe LINK TO THE WRITE BUFFER 

BSBG ‘BACK OVE D 

WRITE  ,WLNKY ‘WRITE OVER 2ND BLOCK 

BSBG ;BACK UP AND 

READ, RLNKY EAD IT 

BLKCMP :COMPARE THE READ AND WRITE BUFFERS 
RLNK4 :CINK TO THE READ BUFFER 

WLNK4 :LINK TO THE WRITE BUFFE 

BSBG ‘BACK OVER IT AGA 

WRITE, WLNKS tREWRITE 2ND BLOCK 

READ, RLNKS ;READ 2ND BLOCK 

BLKCMP COMPARE THE READ AND WRITE BUFFERS 
RLNKS ;LINK TO THE READ BUFFER 

WLNKS LINK TO THE WRITE BUFFER 

BSBG ‘BACK OVER IT AG 

WRITE  ,WLNK3 :WRITE ANOTHER BLOCK OVER IT 

BSB :BACK OVER 2 BLOCKS 

READ, RLNKi sREAD THE 1ST BLOCK 

BLKCMP COMPARE THE READ BND WRITE BUFFERS 
RUNK1 LINK TO THE READ BUF 

WONK1 :CINK TO THE WRITE BUFFER 

READ, RLNK3 :READ 2ND BL 

BLKCMP ; CONPARE THE READ AND WRITE BUFFERS 
RLNK3 :LINK TO THE READ BUFFER 

WENK3 :LINK TO THE WRITE BUFFER 
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DZTADC. e4-MAY-76 00:09 Tl? TEST WFG AFTER WRITE AND BSFG AFTER WFG SEQ 0038 


























sss S RE KRA AAA LRA KRHA KAAS KRHA LEAKE SASHA KS HKA RHE KE RLS F RES SSSA ASSESSES 
| {TEST 17 TEST AFT TE AND B T 
98 sl 14+ ieee occ iebilebietililiai 
988 oo4204 ooo0004 +6717: 
989 004206 O1e767-. 004242 174756 aby #TST20,SESCAPE ;;ESCAPE TO TEST 20 ON ERROR 
990 004214 104422 SELDRV sSELECT DRIVE FOR TESTING 
991 O04216 104421 W . :G0 TO “BOT" 
992 004220 104413 017022 WRITE  ,WLNKL sWRITE ONE LOCK 
993 004224 104412 WEG “FOLLOWED BY A FILE GAP 
994 004226 104415 BSFG *BACK OVER THE DATA BLOCK 
895 004230 104414 016766 READ  —, RLNK1 *READ THE DATA: 
996 004234 104423 BLKCMP “COMPARE THE READ AND WRITE BUFFERS 
997 004236 O16766 RLNK1 *LINK TO THE READ BUFFER 
998 0042840 017022 WLNK1 ‘LINK TO THE WRITE BUFFER 
1968 . sR eererernenernerranernennaabinennanernenneneaeentens 
1001 : ee BRE ce ee ate ere eT re 
1002 oo4e42 o00004 +8720: 
1003 O04244 012767 004300 174720 aoy #TST21,SESCAPE ;;ESCAPE TO TEST 21 ON ERROR 
1004 oo42S2 104422 .  SELDRV SELECT DRIVE FOR TESTING 
1005 o042854 104421 REWIND $60 T 
1006 O04256 104413 oO17022 WRITE  ,WLNKI WRITE BNE BLOCK OF DATA 
1007 O04262 104412 WEG WRITE A FILE GAP 
1008 O04264 104416 BSBG }BALK OVER THE DATA 
1009 OO4266 104414 O16766 READ — , RLINK1 *RE 
1010 9042872 104423 BLKCMP :COMPARE THE READ AND WRITE BUFFERS 
101i 004274 Oi6766 RLNK1 sLINK TO THE READ BUFFER 
1012 OO4276 017022 WLNK1 *LINK TO THE WRITE BUFFER 
1013 ; THSEREREREEEHAESEEOSEEEERESECESESESUEOEESOSEEREDERHEEESOOOEEDS 
1014 ‘ETE TEST WRITE AFTER WFG 
1015 Leaeeneenagunenneaneoseeseenseenessennay aeaneeneeeneeanea teat 
1016 004300 oD0004 +éT2 COPE 
1017 O04302 012767 OO43S& 174662 MOV #TST22, SESCAPE ;;ESCAPE TO TEST 22 ON ERROR 
1018 004310 104422 SELDRV :SELECT DRIVE FOR TESTING 
1019 004312 10442! REWIND GO T 
1020 O04314 104413 017022 WRITE  ,WLNKL : WRITE one BOCK 
1021 004320 104421 REWIND GO TO 
1022 O04322 104414 016766 READ —, RLNK1 * READ one TaLock 
1023 004326 104423 BLKCMP -_ $COMPARE THE READ AND WRITE SUFFERS 
1024 004330 016766 RLNK1 sLINK TO THE READ BUFFER 
1025 004332 017022 WLNK 1 *LINK TO THE WRITE BUFFER 
1026 004334 104412 WFG “WRITE A FILE GAP 
1027 004336 104413 017026 WRITE  ,WLNK2 WRITE ANOTHER BLOCK 
1028 004342 104416 BSBG “BACK OVER THE LAST BLOCK 
1923 904344 104414 016772 READ _—, RLNK2 *READ THE SE 
1030 0043S0 104423 BLKCMP *COMPARE THE READ BND WRITE BUFFERS 
1031 004352 016772 RLNK2 sLINK TO THE READ BUFFER 
1032 004354 017026 WLNK2 LINK TO THE WRITE BUFFER 
1033 ; Jennies binnininnioieieneneas 
1034 ETE 22 TEST WFG-AFTER READ AND BSFG AFTER WRITE 
1035 peaeesseseevnenneaneesesuessnenten esses teeQee C922 EERE 
1036 OCO43S56 OD0004 tét22 
1037 004360 012767 oOO4434 174604 MOV WTST23,SESCAPE ; ESCAPE 10 TEST 29 ON ERROR 
1038 004366 104422 SELDRV sSELECT DRIVE FOR TESTING 
1033 004370 1044eI REWIND TO "BOT" 








3G 
1040 004372 104413 017022 WRITE sWRITE ONE BLOCK 





| WLNKL 













NO3. : 
TEST WG AFTER READ AND GSFG AFTER HR 


SEER "Ene BEREES HOGS 
















IR BaD ABATE cuere Tete ey 
é , ; 
tate 4y ieidd3 Saar Cone THE ReaD AND WRITE BUFFERS 
ue peaate bt S458 RENEE : it 19 THE fRTTE COUFEER 
1Bue pete 10441 WEG ‘WRITE A FILE GAP 
1 004414 104413 017026 WRITE  ,WLNKe ‘WRITE A BLOCK 
1048 oo44e0 104415 BSFG ‘BACK OVER THE DATA 
1049 o94422 104414 016772 READ _—, RLNK2 "READ SECOND BLOCK 
1050 powiiee 10442 : BLKCMP : COMPARE THE READ AND WRITE BUFFERS 
1051 04430 01677. RLNKe *LINK TO THE READ BUFFER 
1052 004432 317026 WLNKe *LINK TO THE WRITE BUFFER 
1053 . sean ntnakenitniameaiaeieaunemenlthonutacetonentenaate 
1054 ;ATEST 23 TEST SFFG AFTER REWIND AND READ AFTER SFF 
1055 © KEKE LELHSKH KAKA LH EEK EREKEKEKE KLE SKA ELE KEKE KAKA KSE EKER SHEKELS EEEKE 
1056 004434 oo0004 23: SCOPE 
1057 O04436 012767 OO4SOO 174526 MOV WTST24,SESCAPE ;;ESCAPE TO TEST 24 ON ERROR 
1058 oo4444 104422 SELDRV SELECT DRIVE FOR TESTING 
1058 oo4s4e 10442! REWIND :GO TO “BOT” 


























del oowuey lowis 1 Na ea ELE A FILE GAP 
1062 OUHNSS 104413 017026 WRITE ,WLNK2 HHRITE 8 BLOCK OF DATA - 
1964 OOW4ES 104417 SFFG Space OVER FIRST BLOCK 
1065 op44es 1044149 016772 READ, RLNK2 T ck 
ie ice ber fags fe te gear aren 
1068 OO4476 017026 WLNK2 STINK 10. THE WRITE BUFFER 
isi | SEUUREHONSuuneuerDaeaososnesosenneenSeuEneRSEsannOnOERORENS 
te po4so0 -oo0804 j rf Te TBE estes escares:ES00E To TEST 26 on mee 
1073 OO4502 012767 OO4S4S 174462 " MOV. STST2S,SESCAPE ;;ESCAPE TO TEST 25 ON ERROR 
He Bae ieee as Ch tala 
1076 O04514 104413 017022 WRITE  ,WLNK1 SWRITE DAT 
1077 ocvs20 104412 WEG :WRITE FILE GAP 
1078 OOsSe2 104413 017026 WRITE  , WLNK2 {WRITE DAT 
1079 O04se6 1044e! REWIND 60.10 "BOT" 
1080 004530 104417 oFFG {SPACE OVER FIRST FILE 
1081 O04532 104416 BSBG !BACKUP TO FIRST BLOCK 
1082 O04534 104414 o1e7E6 READ, RLNK! :READ THE BLOCK 
ied DOveue Ole7ee PUNK jCORE ARE THE REGO BND URITE BUFFERS 
1085 OO4544 O170e2 WLNKI {LINK TO THE WRITE BUFFER 
tind REE eeteareenaeeeaaees opesineelineenneniientiaeenien 
ines poNs4s oooco4 pi SenbeneseSeRnELEUSSSSEDSSOOSEOSORESEOLDEEERUNUDEDEDEDEDREUOD 
1081 Do4eee lowes NM OD tlctmpagertcte cagmtala tS ised TESTING 
1092 OO4SEO 104421 REWIND :00 TO Bor" 
He Bee ee ove ze am Oe 
| 1665 O04570 i044I3 o17026 WRITE  , WLNK2 FOLLOWED BY 2 BLOCKS OF DATA 
| 1086 O04874 iow413 017032 WRITE  [WLNK3 
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OO467E 017002 


poss be 
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Byeig | io44i4 
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OO4754 900004" 
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7(1006) 23-SEP-76 10:33 PAGE 24 
TEST SFEG AFTER SFFG 
REWIND 360 TO “BOT” 
SFFG SeAce over 1s] FILE 
SFRG SPACE OVER BLOCK 
S86 BACK QVER THE BLOCK 
FAD J RLINK2 READ THE LAST BLOCK % 
BLKCMP ;COMPARE THE BERL GND WRITE SUFFERS 
RLNKE NK T THE FES 
WENK irENk 10 THE URITE SUFFER 
,supnessannscnensssesesoeseesessaseeescsnessssnssssnenesersesss 
SATEST 26 TEST SF8G AFTER SF 


s Peeueihoeanenbsneunnnatemmednntassenmmmenanteiiemennnaninent 


tétze: SCOPE ; 
MOV aTST27,SESCAPE ;;ESCAPE TO TEST 27 ON ERROR 


SELDRV SELECT DRIVE FOR TESTING 
REWIND 369 Q “BOT 

WRITE ,WLNKI WRITE A BLOCK OF DATA 
WEG ;WRITE @ FILE GAP 

WRITE ,WLONK2 ;WRITE 3 BLOCKS OF DATA 
WRITE ,WLNKS 

WRITE =, WENK4 

SFFG ‘Beate OVER THE 1ST FILE 
aeBe - 3SPACE OVER TWO BLOCK 

EAD »RLNKY ;READ LAST BLOCK OF D 
BLKCMP ; COMPARE THE READ ane WRITE SUFFERS 
RUNK4 LINK TO THE READ BUFFER 
WLNKS STINE TO THE WRITE BUFFER 


+s REERLEREESESARERERLEEEEASERARSEEESEEREA SEA EEREEEREEE SELES EAEREE 


a ee eee ae ee 


K_OF 2ND FILE 
ILE 


:&TEST 27 TEST BSFG AFTER SFBG AND SSFG AFTER SSFG 
oa 0 paee pence pererremer aan” 
MOV eTST30, SESCAPE 7 ;ESCAPE TO TEST 30 ON ERROR 
SELORV sal ECT T DRIVE FOR TESTING 
REWIND TO “BOT” 
WRITE ,WLNKI RITE ONE BLOCK OF DATA 
WFG WRITE FIL = 
WRITE ,WLNKe sWRITE 5 BLOCK OF DATA 
REKT TQ “BOT 
SFFG Pace OVER IST F 
SF8G : SPACE JVER 1ST 
BSFG ;3ACK TO BEGIRNNG OF @ND F 
BSFG ;BACK TQ BEGINNI Ties 
READ ,RLNKI sREAD IST at 
BLKCM COMPARE THE R 
RLNK1 sLINK TO THE READ BUF 
WENK 1 LINK TO THE WRITE WEEE 
, aueneusseaseuaneveassseucconseaussescehisesunesnscenesitestaces 
TEST 30 TEST B8SB8G THRU A FILE GAP 
jittioedienapesatstoestisaroedenentaistieessssssnananaessesoass 
; MOV STSTD1,SESCAPE ;;ESCAPE TO feet 31 ON ERROR 
SELDR ;SELEC Tie FOR TESTING 
REWI :G0 TO ™ 
WRITE ,WLENKI !WRITE ONE “5.0K, OF DATA 
FG : WRITE A FILE GA 


Séa S040 





-4 
tsa 
—4>-— 
5 
ok 

a 


il 

1254 OOS 
He Se 
ee 
1358 905914 
13159 05016 
1160 paetse 
116] 024 
1i62 905926 
i163 905030 
1164 

1i85 

166 


095162 
005164 
605170 
005172 


0 -* 0+ 2 & = & 2 8-2 0+ & = 0 Bs b= 0 8+ 2 2 2 02 bo 0-2 2 2 Bo Bo BB bh ho Oo ho § 0 ho 0-0 0 0 Fo bo hhh 2 oh - Pe 


ae WENNER NN SS ant a an a a ane aa a 
fo GENRE OOS Dio SURO Ecol ODeD SORUNE CofO-Co.B03 Gort 2 stars Cae a 


Nau B4-nay-76 


a 


104413 


aa 


Bios 


016768 


005104 


017022 
017026 


C1676 


017022 
017026 


018766 


gos232 


017022 
017026 





MACYL! 27(10 a ze 10:33 PAGE 2s 
Test SsEo tHRG 7 a 
WA ITE  WLNK * sWRITE TWO BLOCKS OF DATA 
WRIT * WLNK ri 
REWIND :G0 TO “BOT 
SFFG :SPACE OVER IST FILE 
SFBG :SPACE OVER 15T BLOCK OF 2ND FILE 
8S86 *BACK OVER 1 BLOCK 
9586 :BACK OVER { BLOCK 
READ JRUNKI : READ 
SLKCMP : COMPARE ne READ AND WRITE BUFFERS 
RLNK1 ‘LINK TO THE REG 0 BUFFER 
WLNK 1 ‘LINK TO THE WRITE BUFFER 
3 PUTT TT TRE ETTTETTTTTeTeTT TTT T TTT CECT Tee TTeT TTT eT TT eeErT Ter Terre 
:*TEST 31 TEST BSFG AFTER 8S8G 
pisteeettessueenssetessessssseeesesessenneneenssneneeessesenenens 
174130 MOV BTST32,$ESCAPE ;;ESCAPE TO TEST 32 ON ERROR 
SELORV aL RCT DRIVE FOR SE STING 
REWIND om he 
WRITE ,WLNKI ITE ONE BLOCK OF DATA 
WEG RHE 8 
WRITE  ,WLNK2 WRITE ) Boe K OF DATA 
REWIND :G0 TO “BOT™ 
SFFG :SPACE OVER FILE 
SFBG :SPACE OVER 1ST BLOCK OF 2ND FILE 
BSBG : OVER BLOCK 
BSFG -BACK OVER FILE 
READ SRLNK1 sREAD IST BLOCK ON TAPE 
BLKCMP sCOMPARE THE READ arg WRITE SUFFERS 
RUNK1 “LINK TO THE READ SUFFER 
WLNK 1 *LINK TO THE WRITE SUFFER 
: pAPMMEEEEERRAnEEEEEtesenteeteseneeeennlieeeentenseeennetteeeens 
#TEST 32 TEST 8S8G AFTER BSFG 
jiteeerbbaeseseseseecesaranseessseseeensenenenenenansecscneaenens 
H \ 
174056 MOV #TST33,SESCAPE ;;ESCAPE TO TEST 33 ON ERROR 
SELDR ;SEL TLORIVE FOR TESTING 
REWIND :G0 TO “CLEAR LEADER 
WRITE  ,WLNKL : WRIT 
WEG :WRITE A FILE GAP 
WRITE  ,WLNK2 ‘FOLLOW WITH ANOTHER BLOCK 
BSFG :BACK UP 1 FILE 
8S8G :BACK UP i BLO 
READ J RLNKI sREAD 1ST BLOCK ON T 
BLKCMP sCOMPARE THE READ a WRITE SUFFERS 
RLNK! sLINK TO THE RE 
NKI LINK TO THE WRITE UOFEER 
: jsassanssnaseasssssszsstonsensvssnssnesiencnannasassncacsneneess 
‘$Tes TEST BSFG AFTER SFFG AND SFFG AFTER READ 
jjeepstazasueenseseensnneussvenvenennecneeronenennvessnente 
174012 OV #TST34,SESCAPE ;;ESCAPE TO TEST 34 ON ERROR 
SELDRY SEL ECT DRIVE FOR TESTING 
REWIND “BOT” 
WRITE  ,WLONK sete a BLOCK OF DATA 
WEG :WRITE A FILE GAP 
WRITE .,WLNK2 :WRITE A BLOCK OF DATA 
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st bs 
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GJ 
a | 
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O0S366 





ON TEST 
Wo = e4-MAY-76 00:09 


005364 


del 


tbayis 


0 
017032 


000004 
01e7&7 


MAINOEC- 11-DZ2TAD-¢ 
T33 


016766 


016772 


005310 


017022 
17026 
017032 


O16776 


00534 


017022 
017026 


017032 


016776 


005436 


173730 


173652 


173576 


ite 


8 


MACY11 apd 
TEST BSFG AFTER S 


SEHANO 


MOV 
SELORV 
REWIND 
WRITE 


T 35 


DO4Y 


3-SEP-76 10:33 PAGE 26 
FG AND SFFG AFTER READ 





BB Ace ote ONER. 1ST FILE 

BACK TO BEGINNT NG OF 1ST FILE 
READ FIRST DATA BLOCK 

‘COMPARE THE READ SND WRITE BUFFERS 
‘LINK TO THE READ EUFFER 

“LINK TO THE WRT WRITE BUFFER 

:SPACE TO BEGINNING ON OND FILE 
*READ 1ST BLOCK OF OND FILE 

; COMPARE THE READ AND WRITE SUFFERS 
;LINK TO THE READ BUFFER 


LINK TO THE WRITE BUFFER 


G AFTER SFFG 


#TST35, SESCAPE 


»WLNK1 
»WLNKe 
»WLNKS 


»RLNK3 


;;ESCAPE TO TEST 35 ON ERROR 
;SELECT ORIVE FOR TESTING 


:G6 TO BOT 

s;WRITE A BLOCK 
;WRITE FILE GAP 
;WRITE A BLOCK 
sWRITE A FILE GAP 
sWRITE A BLOCK 
“sWRITE A FILE GAP 
3G0 TO “BOT” 

sSPACE OVER LST FILE 
sSPACE OVER 2ND ae 
;READ BLOCK OF 3R 

s COMP 


tenenanseeecnenecaenenteansesenseseveniiaeseceeneaesneaeseneess 
4 


weg 7 dpi maine aneee onccaany ee at abi casa 
COP 


O FILE 
ARE THE READ a7 WRITE BUFFERS 
sLINK TQ THE RFD BUFFER 


TQ THE W.sTE BUFFER 
,  SEFEEOSSSEPSERLESESUDESGEaSESELESSnEELTESSESEEESSESIEESORTTEOS 


OVER THE IST es | 1ST FILE) 
NI F eyo FILE 


TEST SFFG AFTER SFSG 
Pep Rdaapeentstoaiteseseetsedadteeseeeeessaennneeneessaioen 
OV #TST3E,SESCAPE ;;ESCAPE TO TEST 36 ON ERROR 
SELDRY :SELECT DRIVE FOR TESTING 
REWIND 7 60 TO “BOT 
WRITE  ,WLNKI STRITE A BLOC 
WRITE © {WLNKe tWRITE A BLOCK 
WG ZWRITE A GAP 
WRITE  ,WLNK3 ZWRITE A BLOCK 
WF G SWRITE A GAP 
REWIND 360 10 “Bor” 
SFBG : SPACE 
SFG :SPACE TO BEGINNING 0 
READ | RLNK3 SREAD. 1ST BLOCK OF 
BLKCMP :COMPARE THE 
RLN3 sLINK TO THE READ 
WLNK3 INK TO THE WRITE BUFFER 


 ATEST 36 


TEST WES AFTER SF 


 LRPERERELEL ER RRR REA EEL EA RARE REEERRR AER AERERERRARLARRARAEARERERE 
;;ESCAPE TO TEST 37 ON ERROR 


Be 





SCOPE 
MOV 


#TST37, SESCAPE 





Tall MOTION TEST MAINDEC-11-D2TAD-C 
ZTADC. NE 0:0 T36 








MACY11 27(1006) 23-SEP-76 10:33 PAGE 27 
TEST WFG AFTER SFBG 


SELORY ;SELECT DRIVE FOR TESTING 
RITE WLNKI ;WRITE 2 BLOCKS 
WRITE  } WLNK2 
REWIND ;G0_TO “BOT” 
SFBG ;GET OVER THE 1ST 6!.0CK 
WEG sHRITE A GAP OVER 2ND BLOCK 
WRITE  ,WLNK3 SWRITE A BLOCK 
BSFG :BACK OVER THE BLOCK 
READ —_, RLNK3 EAD IT 
LKCMP COMPARE THE SEAD AND WRITE BUFFERS 
CNK3 THE READ SUFFER 
NK3 LINK TO THE WRITE BUFFER 


WL 
ptapeenatetseenaeeeaatenseesseneaaeeeliarsaneastesaanteneess 
TEST 37 TEST WRITE AFTER SFBG 
TE gga qa ates ea etnnene irate tae tis sanalarnitaata Nar 


BERR EERE lal Vet 


sr 
rururu 
ret br 


-< 


nono 
Pi 


SCOPE 

MOV aTST4YO,SESCAPE ;;ESCAPE TO ey 40 ON ERROR 
SELDRV iSEL ECT pave FOR TESTING 
REWIND TO BOT 

WRITE  ,WLNKI SURITE 2 BLOCK 

WRITE ,WLNK2 

REWIND ;G0 TO BOT 

F SPACE OVER 1ST BLOCK 
WRITE  ,WLNK3 shiRI TE OVER 2ND BLOCK 
BSFG GO TO BEGINNING OF FILE 
SFBG ; SPACE OVER 1ST BLOCK 
READ »RLNK3 EAD THE NEW 2ND BLOCK 
BLKCMP jCOnPARE THE READ AND WRITE SUFFERS 
RLNK3 LINK TO THE READ SUFFER 
WUNK3 LINK TO THE WRITE BUFFER 


pees deaepeeesereeesenrpeeeenaatinnearnaroenainneenee 


T 40 3 ONE BLOCK FILES---MULTI SPACING 8 TEST SFFG AFTER BSFG 


y sataacabuveunshorctankihecnsttaasnetiahetnssaabebesteanranenens 


0 0-5 BB = bs 8 2 8 = Be Oo 2 2 0 Oo 8 
etetetet atta atetetofetatatatatetetalettdtttattty 
Sistatn tr ited strate cee teat 
b+ 0 = MU b= 6+ 
NNeKrWwrw 


TU 0 0 bs 0 
OWONTUCWYO 





SCOPE 
MOV STST41,SESCAPE ;;ESCAPE TO TEST 41 ON ERROR 


SELDRV 3SEL ECT DRIVE FOR TESTING 
REWIND ;G0 TO “BOT 

WRITE ,WLNKI WRITE A Meese 

WEG SFILE GAP 

WRITE  ,WLNKe ;BLOCK 

WEG ;FILE GAP 

WRITE  ,WLNK3 ; BLOCK 

WFG ;FILE GAP 

REWIND ;G0 TO “BOT” 

SFFG :SPACE OVER 1ST FILE 

SFFG ;SPACE OVER END FILE 

SFFG ;SPACE OVER SRD FILE 

BSFG ;BACK OVER SRD FILE 

BSFG ;BACK OVER END FILE 

BSFG ;BACK OVER 1ST FILE 

SFFG ;G0 TO ne at ae OF 2@ND FILE 
READ »RLNK2 sREAD T LOCK 

BLKCMP Conan THE READ +5 WRITE BUFFERS 
RLNK2 TQ THE READ 


LINK 
WLNKe LINE TO THE WRITE BUFFER 








TALL MOTION TEST 
OZTAOC. 


pia & 


SSH B RO aeS 


GubEbbbibbiiiististstststs x 
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eae 
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MACY11 27(1006) 


#TST42, SESCAPE 


»WLNK1 
SWLNK2 


» WLNK3 
» WLENK4Y 


»WLENKS 
,WLNK& 


»RLNKS 


» RLNKS 


#TST42, SESCAPE 


»RLNK4 


»RLNK1 





23-SEP-76 10:33 PAGE 28 
TWO BLOCK FILES---MULTI SPACING FUNCTIONS 


 ppemtniaeoy assem eeetanrepetnere eerie 
4 


TWO BLOCK FILES---MULTI SPACING FUNCTIONS 
"ma 2° algae en acre canacetatnceianeaean cain imma sis 


;;ESCAPE TO TEST 42 ON ERROR 


fae annie FOR TESTING 
sWRITE A 2 BLOCK FILE 


WRITE. A 2 BLOCK FILE 


“sWRITE A 2 BLOCK FILE 


:GO0 TO “BOT” 
; SPACE oven 1ST PILE 
;SPA CE OVER OND FILE 

;READ 1ST BLOCK OF 3RD FILE 
COMPRA THE READ AND WRITE BUFFERS 
;LINK T READ BUFFER 


LINK ITE BUFFE 
;BACK TO BEGINNING OF 3RD FILE 


; ore D FILE 
if MPARE THE READ + he BUFFERS 


NK TO THE READ B 
NK TO THE WRITE BUFFER 


tag eaeancrnemaenennealiat al nite 


MULTI SPACING 8 TEST SFBG AFTER 
tlt +1 aaah 


3 ESCAPE TO Test 43 ON ERROR 
iSEL ECT 


DALE FOR TESTING 
SMRITE A 3 BLOCK FILE 


sWRITE A 2 BLOCK FILE 


;GO 10 "BOT" 

:SPACE OVER THE IST FILE 
;SPACE_OVER T FLE 
sBACK HR ae OF 2 FILE 


BL ILE 
; COMPARE THE READ a. wetTe BUFFERS 


FILE 

COMPARE” THE RE EAD BND "WRITE BUFFERS 
LINK 10 THE READ BUF 

CINK TO THE WRITE BUFFER 














Oo 


Ses tabsisisttasisttattsotasitota 


PNSLHSHLSHRE 
MO HH OOD ee eh 


3 
QU UeErwewu eee ewawurunisorerocoe 
fu 


egg 
a 


SEERSSNG SOLERO 


10441e 


$3 


[oe | oO 
fifeiereite 
UD > bbs 0 bs bP 
WS NMUMUININ NI MWWMWWTD 


22 
££ 


Sse 
BRvES 


UN lalate FS 


bStiot. NEN 34-nav-76 8:0 


le iS 
4 3 016766 


016776 


017002 


016776 


017006 


096366 


017022 


173104 


172764 


mcr! 62 


ND 
WRITE 





Sie Be 7.1 ch sia 


WLNK4Y 
Fear eae hie oe Teer wet estie te 


TWO BLOC 
jeteetneeeennsanenscesnenseeaseaseestensenseeneeeRteaeeentHat 


#TST4YY, SESCAPE 


» WLNK1 
,WLNK2 


ee 
» WLNK4Y 


» WLNKS 
, WLNK6 


,RLNK3 


_ ,RLNKS 


WLNKS 
ala Aaa sew al 


6 ONE BLOCK FILES---MULTI SPACING 
| RRERRE REEL EERE REEL RAE R ARE ERE RARER EMEA EAAE EERE EER ERE REAR EERE 


#SEOP, SESCAPE 


»WLNK1 





SEG OO4s 
GINNING OF IST FILE 

tea EF aoe 

COMPARE THE READ aND WRITE BUFFERS 


sLINK TO THE READ BUFFE 
iLINK 7 THE WRITE BUFFER 
ND BLOCK 







RD BLOCK 
MPARE THE READ AND WRITE BUFFERS 
ELINK i 3 READ BUFFER 







;GO0 TO BEGINN 

oo 1ST_ BLOCK OF 2ND FILE 
;COMPARE THE READ AND WRITE SUFFERS 
;LINK TO THE READ BUFFER 

‘LINK TO THE WRITE BUFFER 









K FILES--MULTI SPACING & TEST SFFG AFTER 8S8G 






;;ESCAPE TO TEST 44 ON ERROR 
; SELECT palve FOR TESTING 


60 TO BO 
:WRITE A 2 BLOCK FILE 





;WRITE A 2 BLOCK FILE 


;WRITE A 2 BLOCK FILE 


;BOT 
;SPACE OVER 3 FILES 


;BACK OVER 2 FILES 


BRC TQ_2ND BLOCK OF IST FILE 
TO BEGINNING OF 2ND rit E 
‘ReaD 1ST_RECORD OF 2ND FILE 
COM PARE THE pene AND WRITE SUFFERS 
;LINK TO THE READ BUFFER 
CINK NK TQ THE WRITE BUFFER 
60 TO SRO FILE 
;READ 1ST RECORD OF 3RD FILE 
ARE THE READ AND WRITE BUFFERS 
CINK TO THE READ BUFFER 
sLINK TO THE WRITE BUFFER 







;;ESCAPE TO SEOP ON ERROR 
; SELECT Barve FOR TESTING 


SHRITE A H RECORD FILE 








HUN "E 


ePrgutteeusee? 


> 


Res Eu 


WluNUUITY 


P 
rm 


No 


MAT 


4-MAY-76 OO: 


017026 


017032 
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017046 


01701e 
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016776 


016766 





MACY11 27(1006) 
, WLNK2 
»WLNK3 
» WLNK4Y 


»WLNKS 
y WLNKE 


» RLNKE 


»RLNKS 


,RLNK3 


,RLNK1 








23-SEP-76 10:33 PAGE 30 
BLOCK FILES---MULTI SPACING 


sWRITE A 1 BLOCK FILE 
sWRITE A 1 BLOCK FILE 
sWRITE A 1 BLOCK FILE 
sWRITE A 1 BLOCK FILE 
;WRITE A 1 BLOCK FILE 


‘NOW BACK UP AND READ IT 


;COMPARE THE READ AND WRITE BUFFERS 
sLINK TO THE READ BUFFER 

:LINK TO THE a BUFFER 

BACK UP TO STH FILE 


3 AND READ a 


;LINK 
;LINK TO THE WRITE BUFFER 
;BACK UP-TO 3RD FILE 


;AND READ IT 

:COMPARE THE READ AND WRITE BUFFERS 
LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 

:BACK UP TO IST FILE 


;AND READ IT 
:COMPARE THE READ oe WRITE BUFFERS 
LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 


















































006461 
COB4EE 


TALL MOTION TEST “NAINDEC=11-DzTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 31 
DZTAOC.NEW e4-MAY-76 00:09 END OF PASS AbuFINE 


-SBTTL END OF PASS ROUTINE 


5 RRRRKERA ARK RRL R KERR ERLE ALARA KER EARLE EERE RELA EERE RES EEE EREREER 


: EINCRENENT THE PASS NUMBER ($PASS) 
s#TYPE "END P 
F THERES A HONTTOR GO TO IT 

thE T HERE ISN’T JUMP 


TQ START 
:*IF IT IS DESIRED TO we A BELL INDICATE THE “END OF PASS” LOCATION 


;*SENDMG CAN BE CHANGED T 





SEOP: 
74 $PASS $1ZERO THE NTHE 
042767 100000 172466 Bc #100000,SPASS -::DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ ;; LOOP? 
000001 SEOPCT: .WORD 
003015 BGT SDOAGN : YES 
012737 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
000001 SENDCT: .WORD 1 
006414 SEOPCT 
104401 906461 TYPE SENDMG :; TYPE “END PASS” 
513700 og0042 SGETH2: MOV ot 42.R0 GET MONITOR ADDRESS 
001405 "" BEQ OAGN ;;BRANCH IF NO MONITOR 
oo0905 RESET :CLEAR THE WORLD 
004710 SENDAD: JSR PC, (RO) 3360 TO MONITOR 
oo0240 NOP ;}SAVE ROOM 
000240 NOP 
000240 NOP ::ACT1I1 
SDCAGN: 
000137 IMP a(PC)+ + + 33;RETURN 
002326 . - $RTNAD: .WORD ST RRT 
77 377 000 S$ENULL: .BYTE jjNULL CHARACTER STRING 
O15 o42412 O42Z116 SENDMG: .ASCIZ 7185218) eno pass ‘ 
osoe40 OSisOl 000133 











TAlL MOTION TEST 
DZTADC.NEW e4-MAY-76 00:00 


owl aed ond ood ood onl | 
UIUNUNUUU aes 

0 bb pb pape 
Velesbes ealia me od 


SUSUR TE OM SON Emus 


feo 
Po = 
-“_ 


-- + > F = bb 6 = 6 92 = 0b 6 0 = 9 bp 9 po 9 9 pe 
mM 


i eee 


013701 
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001220 


000101 


000400 
000040 


001000 
p10000 
o00201 
p002¢3 


OFC y00 
200002 





172370 
172360 








JO4 



















END OF PASS ROUTINE SEQ 0048 

$3 eee eee tet ttt t ttt i sees sett i titi itt ttt titi ti tititiiiitite) 

* SETTL ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 

;CALL: 

; PC, JHEXAM ;R1 IS DESTROYED 
ERROR RETURN 


EXAM: rnd oa TACsL Ri 


z 
So 
p 
= 
D 
z 
a 
m 
ae 
c- 
D 
= 


‘PICKUP THE “CONTROL & STATUS” REG. ADR. 
LR (RI :DRIVE="A", FUNCTION="WFG™ 
CMPB Ss #”A, (RO) sEXAMINE DRIVE "a? 
BEQ SR IF YES 
BIS #UNIT, (R1) ‘SELECT DRIVE “B” 
18: BIT wREADY, (RL) :WAIT ON READY 
TST (RL) s ANY ERROR” 
BPL 4g :BR IF NO 
BIT #OFFLINE, (RL) “ERROR DUE TO “OFF LINE"? 
BNE :BR IF YES 
BIT #WRTLOCK, (RL) : ERROR DUE TO “WRITE LOCK"? 
CMP8 § #BITO7!BITOO,aSWR :"READONLY” SELECTED? (RDIPAS) 
BEQ R IF YES 


38 
gee etka mmiatacn oman ; (RD2PAS)? 


YES 
: TAKE THE ERROR EXIT 
; ERROR DUE TO “CLEAR LEADER”? 


3$ 
es: BIT SEER, (I) a 
TAKE ERROR RETURN 


BNE 
38: #2, (SP) 
48: PC 













ABLE ROTION by mav=7% fo RAINDEC- 11 Oe TRO eS OPE HONE EA RB fe 23-SEP-76 10:33 PAGE 33 Seo 0049 


is44 -SBTTL SCOPE HANDLER ROUTINE 






1546 HBBHHHBH HEHE HEHEHE HH HEBHHE HEHEHE HEE TOTTI SETI AE IIE 
1547 tATHIS ROUTING CONTAC S THE eau I OF SUBTESTS. IT WILL INCREMENT 
1548 ;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE paYC]S:08) (DISPLAY<7:0)) 








1552 ;*#SW11=1 INHIBIT ITERATIONS 

1553 ; *SWO9=1 LOOP ON ERROR 

1SS4 ; #CALL 

tesa ;* SCOPE ; ;SCOPE=IOT 

1557 006600 $SCOPE: 

1558 006600 104406 CKSWR ;; TEST FOR — IN SOFT-SWR 
1559 006602 105777 172336 TSTB = ASTKS TTY FLAG UP? 






1560 006606 001405 BEQ 100$ BR IF_N 








1561 006610 104407 RDCHR 360 GET ONE CHARACTER FROM TTY 

1562 O0b6le leebe7 00003 CMPB (SP)+, #3 329 IT A CONTROL/C ? 

1563 006616 001001 BNE 100$ :BR 

1564 006620 104424 SETLOOP GO GET “TEST AND “SCOPE LOOP” ADDRESSES 
1565 O066ee 005727 100$:_ TST (PC)+ ;LOOP ON TEST? 

1566 006624 000000 LOOPKEY: 1) 

1567 006626 001105 BNE 






SOVER YES 
ize 008630 032777 O40000 172302 18: BIT #81714, aSWR ;sho0r, oll PRESENT TEST? 













569 006636 001101 BNE OVER = 
1570 ;uwueeSTART OF CODE FOR THE XOR TESTERS#eae 

1571 OOS64O OOO4IE $XTSTR: BR 6$ silt RUNNING ON THE “XOR™ TESTER CHANGE 
1572 THIS INSTRUCTION TO A "NOP" (NOP=240) 
1573 OO06642 013745 o00004 MOV DHERRVEC, - (SP) ae THE CONTENTS OF THE ERROR VECTOR 
1574 OO6646 012737 OOG666 O00004 MOV #5$, JHERRVEC 3;5ET FOR TIMEOUT 

i575 006654 005737 177080 TST 3#177060 ‘TIME OUT ON XOR? 

1576 O06660 012637 O00004 MOV (SP)+, JHERRVEC {TRESTORE THE ERROR VECTOR 

1577 006664 O004S3 BR $SVLA Ab 3360 TO THE NEXT TEST 

1578 OOB666 O22626 S$: CMP (SP)+, ( “CLEAR THE STACK AFTER A TIME OUT 

1579 006670 012637 oo0004 MOV (SP)+, SBERRVEC {RESTORE THE ERROR VECTOR 

1586 006574 000413 BR 75 *LOOP THE PRESENT TEST 

1581 006876 6$:;#8#BKEND OF CODE FOR THE oe! ‘testentae 

1582 O06676 105767 172201 . 28: TSTB © SERFLG HAS AN ERROR OCCURRED? 

1583 006702 O01421 EQ N 

1584 006704 126767 172205 172171: - CMPB = SERMAX, SERFLG i Ra ERRORS FOR THIS TEST OCCURRED? 
1585 O0&712 101015 BHI 

1586 006715 032777 OO1000 172216 BIT #B1T09, JSWR i Loop ON ERROR? 

1587 006722 O0140 BEQ 4g NO 






4O4 | 
1588 06724 016767 172160 172154 7S: MOV SLPERR,SLPADR  :SET LOOP ADDRESS TO LAST SCOPE 
000443 SOVER 









1589 006732 , BR 

1590 006734 105067 172143 4$: CLRB SERFLG ;;ZERO THE ERROR FLAG 

1591 006740 Q0S067 17e224 CLR STIMES beeen THE NUMBER OF ITERATIONS TO MAKE 
1592 006744 000415 BR 1$ ;ESCAPE_ TO THE NEXT T 

1593 006746 032777 OCYO00 172164 38: BIT #BIT11,dSWR is INHIBIT ITERATIONS? 

1594 006754 001011 BNE 1$ YES 

1595 006756 005767 172116 TST $PASS ii TF FIRST oa OF PROGRAM 

1596 006762 001406 BEQ 1$ INHIBIT ITERATION + 

1597 006764 005267 172114 INC $ICNT _ ——- ¢eIINC REMENT ITERATION COUN 

1598 006770 026767 172174 172106 CMP ss STIMES, SICNT t CHECK (HE NUMBER OF TTERATIONS MADE 






1599 008776 (002021 ; BGE SOVER ;;BR IF MORE ITERATION REQUIRED 









TALL MOTION TEST 
DZTADC.NEW = 2@4-MAY-76 


1600 007000 012767 
18h 007006 016767 


ee GER LEC 








MAINDEC-11-DZTAD-C 
00:09 S¢ 


00000! 172076 1S: 
172204 172154 


1 7c0es $SVLAD: 


000001 172053 
cena 172072 SOVER: 
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OPE HANDLER ROUTINE 


MOV CNT ;;REINITIALIZE THE ITERATION COUNTER 
MOV event STINES };SET NUMGER OF ITERATIONS TO 00 
INCB STSTN! :COUNT TEST NUMBER 


a (SP), SLPADR :;SAVE SCOPE LOOP ADDRESS 


V (SP)’ SLPERR ::SAVE ERROR LOOP ADDRESS 
LR séS ESCAPE :;CLEAR, THE ESCAPE. FROM ERROR ADDRESS 
MOVB NLY ALLOW ONE (1 ) ERROR ON NEXT TEST 
MOV $183nn SOISPLAY H DISPLAY TEST NUMBER 
Moy SLPADR: (SP) + FUDGE RETURN ADDRESS 


SEG COSO 





TAL] MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 35 
oetaoe one 3-nay-76 09:0 ERROR HANDLER ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 
5 RR HER REE HERR REEL ER REE KERR EERE EERE EERE REPEAL E AEE E RE 
SATHIS Ts A Macy 2 THE ERROR FLAG AND THE ERROR COUNT, 
bESAVE THe eae + 34 a AND THE ADDRESS OF THE ERROR CALL 
sETHE SWITCH wt PROVIDED BY THIS ROUTINE ARE: 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

COOP ON ERROR 

N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


0 bb pn pn po po 
COOOrrrrrwm 
0 b= b= 0 bb bp pe 
WW ITMUICUWuH-O 


it 


SERROR: 
F ;; TEST FOR CHRIS IN SOFT-SWR 
JTACS, J#SREGO ;SAVE THE TALI a/BTUs ; 
’ aTADB, a#SREG1 i505 THE DATA BUFFER 
aTACS’ “XFER REQ” IS UP KNOCK IT DOWN 


100$ 
900020 pet aTLBS, ATACS 
oooo4o | : p —o 31S READY SET? 


YES 
REGAIN CONTROL 
001162 M J#SREGO, ITACS *RESTORE THE TACS 
: CMP (SP) +, ($P)+ :POP THE STACK 
172122 TST ASK KEY *MANUAL LOOPING? 


102$ °BR IF NO 
172040 M (SP) , SESCAPE ?SETUP FOR MANUAL ESCAPE 
177774 : -4(SP), (SP) :GET abgte OF ERROR 
171741 7$: SERFLG :;SET THE ER R FL 

BE 75 ::DON’T tet nee FLAG GO TO ZERO 
171732 STSTNM, DDISPLAY ; DISPLAY TEST NUNBER AND ERROR FLAG 
002000 I 861710, dU ;3BELL ON ERR 


SBELL ERIN NG BELL 
SERTTL +: COUNT rE NUMBER OF ERRORS 
(SP), SERRPC ?:GET ADDRESS OF ERROR INSTRUCTION 
astarec, SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT IT13, sein $F SKIP TYPEOUT F SET 
gq0069 , J | PC, TYPERR ::G0 TO USEF ERROR ROUTINE 


171702 5g; ISUR 
33 


SHU RONG 


1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


arate 


T FOR CHANGE IN SOFT-SWR 
001000 171666 : I Set TOs, aaa + LOOP ot oe SWITCH SET? 


171630 ! SLPERR, (SP) :;FUDGE RETURN FOR LOOPING 
171706 .. SESCAPE eis ee AN ESCAPE ADDRESS 


| 5$ 
007266 016716 171700 ' SESCAPE, (SP) iS EUDGE RET RETURN ADDRESS FOR ESCAPE 





TA1] MOTION TEST 
OZTADC.NEW 2@4-MAY-76 00:09 


lee? 
1668 


3855 Oee737 06442 o0004e 
007300 001001 


MAINDEC-11-DZTAD-C 


&$: 
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ERROR HANDLER ROUTINE 


SS: 


CMP 
BNE 


RTI 


#SENDAD, d#4e 
6$ 


;;ACT-11 AUTO-ACCEPT? 
;;BRANCH IF NO 
3;YES 


; ;RETURN 











soo Li-DITRO=¢ C 


ba 
-~ 
we 


atu 


~- 


TINE WILL 
PE 


Swain & 


COTO OTOTON 3 


nino ~.3~ 
fate 


ten 
U 


tet eit est ari) 


Oo 
Ww 


PSST EB SRE 


*0 +00 + 0-0-0 <b-< + 0 -+ 8 <> -0 0 b+ 6-+ 0-60 +p 2b <p 6 <> 29d -+ <6 «6-9 6 


IIIS OOOO OMMm Mrmr 


I~) 
(901 
me 


3-136) 


i ow 


(RO)+, 80 
i, a 
ie f 
"scat 
bc 





ie & 23-SEP-76 10:33 PAGE 37 
eaesa” TYPiU JT ROUTINE 


Sen ante she tee dt ak ee eee 


pt peout THE ERROR MESSAGES 


sTYPE A CARRIAGE RETURN & LINE FEED 
TYPE THE FUNCTION SEING PERFORMED 
MESSAGE POINTER GOES HERE 


ery a THE MAIN FLOW PC 


SAVE 
sPICKUP T Trem INDEX 
ZADIUST IND 
350 IT ine WORK FOR 
; THE ERR 


;FORM M TABLE POINTER 
:PICKUP nicer MEA ROGe POINTER 
‘TPE “ERROR 

ROR MESSAGE BINT ER® GOES HERE 
‘PECK “DA alt 2 al “POINTER 


TYPE “DATA HEADER 

:"DATA HEADER” es GOES HERE 
;PICKUP “DATA POINTER” 

72 an € IS DATA TO TYPE GO D0 IT 
TYPE A CAFRAGE RETURNSLINE FEED 


i: SAVE a FOR TYPEQUT 


$360 NPE ERAT NMITSE ASCIICSALL DIGITS) 


TERM 
:BR IF YES 
: TYPE 2 SPACES 


rAy 
UV 
SCII STRING OF 2 SPACES 








> 


ie 


tip 


Be 
a 4 


~ 


. NEW 


Sub UD ae 


RES 
888888888 
a 


SINISE INNIS) 
@ GJ 
i | Ww 
. 5 
e- 
oO 


3 
2 
3 


ee 

NNNN 

rood 

lufme--O 
3 


“ 00-2 0-0 od 
o ut 
tf 
wo 
eteten 
“J 
o 
tw 
o 


OTION TEST 


E4-MAY=75 


005237 


013737 
005237 
104401 
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001240 
00010; 


000102 


ocoos4 


001242 
001e06 
171502 


01562 


1€0906 
091209 
0 


001222 


001226 





















ERROR TYPEOUT ROUTINE 
yp RRRRRERERRRRERRAREREREEEEREREEEERERAEEE EERE ELSES ESEEP EEL E SEE SE 
. SBTTL ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 


CALL 
: JSR PC, SRASKDRY 
: RETURN :NOTE: RO AND RL ARE DESTROYED 
QSKORV: TYPE MSGDRV s(CRLF>"DRIVE(S)? 
CLR ARVKEY 
ROLIN :60 GET A DRIVE 
MOV (SP)+,RO -SETUP TO CHECK FOR VALID DRIVE(S) 
TSTS = RO “WAS A DRIVE SELECTED? 
SEQ NOTLGL :8R IF NO 
MOV #ORVKEY RI 
LOOP: CMPB 8’A.dRO sWAS DRIVE "A" SELECTED? 
BNE NOTA :BR_IF_NO 
MOVB  (RO)+,(RL)+ “SET KEY FOR DRIVE “A” 
or NEXT 
NOTA: ¢MPS  #8°B. SRO ;WAS DRIVE "B" SELECTED” 
SNE NOTB : F NO 
HOVE (RO}+, (RL>* -SET KEY FOR DRIVE “8” 
NOTE: CMPS #54, 9R0 sWAS A COMMA TYPED? 
ONE NOTLGL ; 
TSTg 420s (RODS :DUMP THE COMMA 
NEXT: TSTB aRO . : TERMINATOR? 
BEQ EXIT - :BR IF YES 
CMP SORVKEY+2, 81 :TWO DRIVES SELECTED? 
BH COP -BR IF N 
NOTLGL: TYPE SQUES *TLLEGAL INPUT DETECTED 
R ASKDRY °60 TRY AGAIN 
EXIT: TST DRVKEY :ANY DRIVE SELECTED? 
BEO NOTLGL :BR IF NO 
RTS P 
| 7 aeapeneniateiais aaiatataiaiaininiag=at SEFSSLESSSSSLESSELALSSLASSLELASAHSLSEREA 
ra LL 
:JSR PC, asASKADR 
ASKADR: MOV RO,-(SP) :SAVE RO 
18: TYPE  , MSGASK ;"Tacs?" 
RDOCT :GET VALUE 
MOV (SP)+,RO *PISK UP THE OCTAL NUMBER 
BEQ 33 :IF “O" USE OLD VALUES 3 
cH RO, #160000 :MAKE SURE IT IS A BUS ADDRESS 
MOY RO, JeTACSL sSAVE TOE TACS 
SDD ; :STEP TO TADB ADDRESS 
MOV RO’ JeTADBL AND SAVE IT 
MOV JBTACSL, asTACSH -SET UP TACS UPPER 
INC JeTACSH . ‘BYTE POINTER 
MOV JSTADBL, 2#TADBH :SET UP TADB UPPER 
INC asTADBH ; :BYTE POINTER 
2S: TYPE  ,MSGVEC : "VECTOR? 








Le 
-40¢ 


13-4 
3-3-3 ~3~ o- 
sooe & 
NOUE Ome 
2 


~s 
i 
31~3-3~ 
Li Ad 
aS 
fu 


fe 
BX 


SRR RAS RAT 
8 
te 


8 
a 
a 


44 


PRP SBS 
8 
x 


~I™9~9™9“I~INI~I~S 


0+ 0 6-< b+ 6-2 &-2 6 -- bo} = B- 2 0-— 9-0 & 2h -< » < §-< 9-= §- oh -- 6 ~< » ~~ > ~~ 6+ 9-9 - + 
ifs 
“ 
g 


1789 


-- 
cococo cD 


C 


Gs 
IC 


91 
000207 


TEST MAINOEC-11-DITAD-¢ 
24-MAY-76 00:00 


091909 


009015 
000131 


001200 - 


015264 


MACY11 F” (1008 
ROUTINE TO INPU 


RUOCT : 
MOV (S°)+,R0 
BEQ 

CMP RO, #1000 
BHIS 
MOV RO, a8 TAVEC 
AOD 


#2, 
MOV RO’ JeTAVEC+2 
S$: TYPE ,MSGPRI 


RDOCT 

MOY (SP)+,.R0 
BEQ &$ 

CMP RO, #7 
BHI 3 

Swag R 

ASR RO 

ack RO 


RO 
BIC @tC<340>.R0 
MOV RO DETAPRIO 


&$: TYPE 
MOV trace (SP) 
TYPOC 
TYPE MTADB 
MOV tADBL, -(SP) 
TYPOC 
TYPE MTAVEC 
MOV TAVES, -(SP) 
TYPOC 
TYPE MTAPRI 
MOV TAPRIO, -(SF) 
TYPOC 
TYPE ,MSGOK 
ROCHR 
mo (SP)+.R0 
CMP sa SRD 
8&0 7$ 
CMP #'Y,RO 
BEG ? 
TYPE SQUES 
BR 1$ 

73: TYPE MYES 
MOV tSP)+, RO 
RTS pe 





DOS 


23-SEP-76 10:33 PAGE 39 
CSR,OBR, AND VECTOR ADDRESS AND PRIORITY 





Seo Coss 


;MAKE SURE ADDRESS IS IN VECTOR AREA 


;SAVE AS VECTOR ADDRESS 
:ASK FOR PRIORITY 


;IF “O" USE OLD VALUE 
MAKE SURE ITS VALID 


sPUT INTO_HIGH BYTE 
SHIFT 

INTO PROPER 

SAVE ONLY PRIORITY SITS 

;QTORE IT AWAY 


¢s=" 
+ SAVE TACSL FOR TYPEOU 
G0 TYPE TOCTAL ASCE TALL DIGITS) 


::SAVE TADBL FOR TYPEOUT 
: G0 TYPE=-OCTAL 8 ASCIICALL DIGITS) 


++ SAVE TAVEC FOR TYPEOU 
:G0 TYPE = OC TAL eset DIGITS) 


:3SAN e TAPRIO FOR TYPEOQUT 
7:60 T WES IA ASCIT(ALL DIGITS) 


:G0_RER READ ONE CHARACTER 


3GET 9 


15 it 
s BRANCH, 1 cH IF YES 
iT WA 

Pp oogee 
SAND LET HIM CORRECT THEM 
TYPE OUT “YES” 


RESTORE RO 
AND RETURN 


+ LELEREFE REEL LEAR ELE LAE LE LEER LE LH AAA REAL ARERRARA ALATA LTE LEAD 
: tas ROUTINE WILL CHANGE AN .ASCIT STRING TO AN OCTAL NUMGER 


REGISTER Rl MUST BE INITILIZED BEFORE ENTERING 


CALL: 
: JSR R3, a8A20CT 
; POINTER 


ERROR RETURN 





iCALL THE pours TINE 
;ADORESS OF T 
STRING MUST 5 TERM 
RETURN HERE ° 


NATED BY A 





F IELEGAL CHARACTER 


ne TE ESIN CHARACTER IN THE Smt Ng 


BYTE OF ALL O°S 








TAiL MOTION TEST 
DZTADC. NE 


1830 


MAINDEC-11-DZTAD-C 
24-MAY-76 00:00 


oo 
QO 


Fete 


ooo0c& 900006 


iuaete 


: 


888 


FERAIIS 


0-= 0 ~+ b—- b-2 6-2 2 2 6-2 6 = 9—« §—-« 9-2 2 §— & — b— 6 b= hh 
<< 
maw 
ee ee 


IQMAOOVOWO VO VOOWOO0V0K0V000000 
| os) oe | oe | oe | oe | ot oe) 

0 + 6- b—< 0 -+ 6 9 -+6-< 

a a 


ro 


EOS 
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ROUTINE TO CHANGE AN .ASCII STRING TO OCTAL 


:OR STRING I 

NORMAL RETURN :OCTAL NUMBE 
MOV R 13 RO 
MOV cea R isto ER THE POINTER 
MOV : MAX. NUMBER OF CHAR. 'S ALLOWED 
TSTB tR Bas? : TERMINATO 
BEQ $ -BR IF Yi YES 
GEC (PC)+ :COUNT THIS CHARACTER 
BLT ug BR IF TO MANY CHARACTERS IN THE STRING 
CMPB ss CRO), #0 : CHECK THIS CHAR. WEEN 
SLT 4 70 AND 7 
HPS (RO), #°7 

IcB sw C7, (ROD sSTRIP AWAY THE ASCII CODE 
ASL Ri :POSITION THE FOR THIS CHAR 
asL Rt 
ASL 
BIS tRO)+, RI ;SET IN THIS DIGIT 
BR 13 :$0 GET THE NE: RACTE 
TST (R3)+ : INCREMENT FOR NORMAL Geen 


MOV (SP)+,RO 
RTS R3 











RETURN TO USER 








FOS 





TALL MOTION TEST MAINDEC-11-D2TAD-C macy 27(1006) 23-SEP-76 10:33 PAGE 4 
DZTADC. NEW e4-NAY=7 & 00:09 UTINE TO GET “TEST” AND “SCOPE LOOP” ACORESSES FROM THE TTY SEG 0057 

1844 © RRKRAARAAARARAKAL HRSA AES KLASSE KALA RAL AAR AA KAA RRA FRA LEAKE FLEFLFSE 

1845 '+HIS ROUTINE WILL INPUT THE ADDRESSES OF “TEST” AND “SCOPE LOOP” FROM THE TTY 

1847 Ol0116 T.SETLOOP: 

1848 910116 14404 015326 TYPE | ,MTEST :TYPE “TEST PC?” 

1849 010122 19441 ROLIN :GET AN ASCII STRING 

1850 010124 O12667 oo002e MOV . (SP)+,11$ GET FIRST RODRESS, OF INPUT BUFFER 

1851 010130 105777 OO00!§ TSTB so IRST C 

1852 010134 o01442 BEQ 3$ 'BR IF CoeR: Bo KERR THE LOOP KEY 

1853 O10136 Sec6es CMP (SP)+, (SP)+ ; POP Pop 

1854 910140 O10167 000119 MOV R1,SAVRI :SAVE RI 

1855 910144 905001 CLR R1 : SET PARTIAL T ZERO 

1856 010148 004337 010032 JSR R3, dBA2°CT :GO CHANGE ASCII TO OCTAL 

1857 O10iSe 000000 118: O :POINTER TO STR 

1858 010:54 o00760 BR T.SETLOOP : ERROR RETURN--GO TRY AGAIN 

1859 010156 005721 TST (R1)+ ; JUST INCREMENT 

1860 Or0160 010116 MOV R1, (SP) :PUT “TEST PC"; ON THE STACK 

1861 Ol0is2e 104401 015341 Ss: TYPE  ,MLOOP ' “TYPE “LOOP PC’? 

1862 O10166 ic8410 RDLIN ' :GET A STRING OF ASCII 

1863 910170 Oles¢ 000014 MOV (SP)+, 128 :GET FIRST RORESS OF INPUT BUFFER 

1864 010174 105777 700010 TSTB sole :JusT_A 

1865 010206 001410 BEQ 1$ -BR IF ves” 

1866 010202 005001 CLR Rl ‘CLEAR PARTIAL 

1867 010204 004327 010022 JSR R3,a8A20CT it :CHANGE TO OCTAL 

1868 919219 oo00000 12s: oO 

1869 910212 000763 BR 5 

1870 010214 010137 001106 - MOV R1, J#SLPADR : SAVE SCOPE LOOP ADDRESS 

1871 0610220 402 BR 25° : Loo 

1872 019222 011637 001106 1$: MOV (SP), J#SLPADR : SAVE Schpe LOOP ADDRESS 

1873 010226 011637 001110 2s: MOV (SP)’ aaSLPERR *ERROR LOOP SAME AS THE TEST ADDRESS 

1874 010232 012737 177777 od66e4 MOV #-1, JLOOPKEY :SET THE LOOP KEY 

1875 910240 900402 BR 

1876 Oi0242 905037 ooss24 3S: LR JRLOOPKEY ;CLEAR THE LOOP KEY 

1877 O10246 016701 oD0002 4$: MOV ‘SAVRI,RI *RESTORE Ri 

1878 010852 900002 RTI :BYE BYE 

1875 919254 900000 SAVRI: O *HOLD RI HERE 


Lscceaisieiidnieienmiadsaasicnabittaalsiin—-aepbgeti icaiatiniabes ‘ 








TALL MOTION TEST 
DZTADC. NEW 


Sue 


Bae 
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w& 
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seeeo nu 


ININIVOOOOVDVWOOO OOOO VBO0000 


DODO D OOO OOD ODOODODOOOOOO DO 
ro 
tJ 


ests 
Oortu 







170654 


001256 


001256 


170560 


MAINDEC-11-D2TAD-C 
24-MAY-76 00:00 


1$: 
2s: 


3$: 


S$: 





Metsdskshedsdokcdelohsbslehstohelatatelehstahsbetaleledatelelokshetadeetelshehbstehebdebsbtedstebtotetelatatotetdetaaeed 
THIS ROUTINE WILL SELECT THE NEXT DRIVE TO TEST 


T.SELDFV: 


BIT 


MACY11 27(1006) 
ROUTINE TO SELECT THE DRIVE TO BE TESTED SEQ cose 


#SH07, , SWR sLOCK ON CURRENT DRIVE? 
R1,-(SP :SAVE R1 ON THE STACK 
BatverR : fe ORIVE 
(RL), "DacuTORY # PAVE, CUR CURRENT DRIVE 
Bi vee’ ‘ 

UNIT, aTACS ‘SELECT DRIVE "B" 
aRube: * #RWOFLG :SET REWIND POINTER TO “B™ 
BUNIT, JTACS :SELECT DRIVE “A” 
BRWOA, JBRWOFLG :SET REWIND POINTER TO “A” 
RI} : INCREMENT TO THE NEXT DRIVE 
ik s0UT OF DRIVES TO TEST? 
#ORVKEY,R!} ‘RESET TO THE FFRST DRIVE 

DRIVE “SAVE FOR NEXT TIME 
#SH09, aSHR 1S SW TCH g=1? 
DASERFLG | :CLEAR THE ERROR INDICATOR 








23-SEP-76 10:33 PAGE Ye 



















(SP)+,R1 RESTORE Rl 








OS 


T MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 43 
-MAY-76 00:09 ROUTINE TO COMPARE THE READ AND WRITE BUFFERS 


| guage neuseeruaeesoneranoreegtacceenertucenseer oer cemmenneanenne 
THIS ROUTINE WILL COMPARE THE READ AND WRITE BUFFERS 


t.BLKCMP: 
;GET THE P> OF THE CALL 
AB P eavec SA OF THE CALL 
anBUF Ck OeMFUNC : acne? ghessace 
RO)+,R ADDRESS 


aa ADDRESS 
BUFFER SIZE 
E BUFFER ADCRESS 


az 
a8 8 


2 


ODOWODWODWWWWwW 
0 0 00 + bo pm 

=p b= 

oP LVOFrS Ln 


000 MIO U1. GIfur- Cc 


HE BYTE NUMBER 
170892 #SWO03, JSWR ‘ COMPARE DATA BUFFERS? 
1$ BR IF YES 


RSE 


SELLE SELES 


£ 
Oo 


BACK 
R3 : CHECK FOR THE TERMINATION 
4$ :B8 IE MORE BYTES TO COMPARE 


: I a#BYTNUM :COUNT THIS BYTE 
000000 : (R1)+,0(R2) : COMPARE oe AND WRITE BUFFER 
BNE 3$ BR IF NOT 
177770 e$+2 ; INCREMENT GRITE BUFFER INDEX 
177774 2 acca :D0N’T LET IT GET BIGGER THAN 3 


BR 
001126 : -(R1), a#SBDDAT GET THE RECEIVED BYTE 
177750 2$+2, Re FORM ADDRESS 
001124 MOVB  (R2),a8SGDDAT :GET THE EXPECTED BYTE 
ERROR 10 RECEIVED AND EXPECTED DATA NOT EQUAL 
epeeneseansaeateveareneanescereananeanineasiaeaeeneanenteneaeey 
'+HIS ROUTINE WILL plRITE A FILE GAP ON THE TAPE 
01204 ture: MOV AVPC sSAVE THE PC OF THE CALL 
15Si2 007314 MOV saiee SOHEUNC :SET MESSAGE , POINTER FOR “WFG" 
12234 1S: JSR RO ax00. CMD :G0 START A “WEG” 
Xie G#IN NT. sEN2GO 


776 r 
11726 J a0, , O#WAITFLAG 


siictte wuss 
goer? 
SESE 


0 
NQOVOOOOVOOVOVOOVOOKOOOKO0OH00000 


bb bb b= 0 b= bb bb + bs bp eb p= pe 


Bee 
RR oe ee 
BEET 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Bie 


Bae 


0 
0 
0 
17 3 ALLOW aw pty 


SES? 


4 
012024 RO, J#FLASS ; NORMAL ee ogee CUT WHAT FLAG 
e HERE IF “XFER REQ” oy “READY” = 


eRETUR F “XFER REQ” 
0 RTI "RETURN HERE IF Reet AND “ERROR” = 
104002 ; ;"READY"=1 AND “ERROR“=1 


ONNOOVOVOVOV0O0RI00 
Oo ooo 





TALL MOTION TEST 
DZTAOC . NE 


eo 


RRR 


eee 


a 
8 P 
SRE REM MRMt a nite pate ttt 


NNOVOVOOOOV OKO OHWOKOKOO OV OOO OBHOOVOK0OO00000 


0+ b+ b— & * &— b= 6 = b+ bb = 9 0 9 = = 0 bo 9 Fb Bs 90 b> bh 9 po 9 pe pe 
oO 


at sg 
o 


PS Pr 


o-* +b <> = b- + b— b= p= Pb — 0 9 9-2 6 po pe 
o 


Ow 
SS 


erareecer. 


SRRRR 


od 





The 


104002 





001204 


2 BoSeBb 007314 
0000 


Ol2e32 
000066 


012234 


177776 
a1 i>ee 


me 
aiede4 


000000 


Oieile 


177776 
011726 


012024 






MAINDEC-11-DZTAD-C 
24-MAY-76 00:00 


tw 


es: 
33: 


4§: 


$$: 


S$: 





MACY11 27(1006) 23-SEP-76 10:33 PAGE 44 
ROUTINE TO “WRITE” A RECORD ON THE TAPE 


g RARER RESIS REE HEHE HEHEHE REE EE EEE REE EE REE EE EEE 
RECORD ON — 4 


jtHIs {ROUTINE WILL WRIT TE 
MOV (SP) 


sDUATT aaMFUNC 

a(SP),.R 

at FIRST anpacee OF WRITE BUFFER 
tr 5M WORD 

iar eh OF ‘eve Mal 


60 START A “WRITE™ 
sALLOW ld eth 
IT FOR A FLAG 
NO. FLAGS Oo RaED 
BR THE att aon INTERRUPT KEY 
iar i Na OCCURRED? 
bane REQ” 


il 
JSR RO, d# 
XURITE! INT. EN!GO 
CLR - 


“RE ROR =] 
eee TO “URITE A BYTE ON TAPE 
:BR IF NO 


pd Va pvTe roe a , 
CALCULATE CRC FOR THIS BYTE 
CREASE THE re 


oe TO SERVICE THE INTERRUPT 


3690 
0 $n 4(R1) SAVE ns, CRC _WORD 
JsR___-_—-RO, ad #0. UM 
XWRITE! INT.EN! ILBS 
CLR ALLO INTERRUPTS 
NOE tiie A FLAG 


g ser 
a ee RE"=0 & “READY"=0) 


ft. 
READY" & “ERROR” 





TALL MOTION TEST 
DZTADC. 


b= b= > b= b— > 6 — b+ > — 6 — pp pe 
oo Lge] 
$e Reo’ 


PASSE ROE 


~ 
<= 


FVOLT LUT LOLS LUG LOMO eee eS 


+ 


YQOOOOO OO OVO OOO OOO OOK OOKOO OOO ODO VDOKOKVOVDOVDOOOKOKOOOVDOOO0O00000 
iat) 


+= 0 b+ bb = b+ 0 8 bs bb 0 bb 0 8 = + 0 bo bb 8 9 bs 9 9 bs 0 he bp pe 


MAINDEC-11-DZTAD-C 
6 00:00 


ie 


000034 
000004 


012232 
012234 
177776 
011726 
001254 


000340 
012024 


Ol2ile 
012350 
001166 


001172 
0 


007314 


170146 


. 177776 


170054 


O0lele 


MACY11 27(1006) 
ROUTINE TO “READ” A RECORD 


ss KERLAA RA KAA LRA HRA KA KARAS RARE KAA KAA KARA A HELA ERE RKELASSS ELE 
: THIS ROUTINE WILL READ A RECORD FROM THE . TAPE 
.READ: M (SP), J¥SAVPC 


OV S 
MOV HIxREAD 

MOV a(SP) Re 

ADD Bates 

MOV RO 

MOV IFA ar can RO 
MOV 4(RO),RCRCO 
MOV (R2)+'RI 

MOV (Re)+-Re 

BGT 2$ 

ERROR 11 

CLR DHCRC.WD 

ISR RO, J#D0. CMD 
XREAD! INT. EN! GO 

CLR a4Ps 

CLRB ss (RL) 

JSR RO, JWAITFLAG 
ERROR : 

ERROR -4 

CLR JAWAITKEY 

MOV #340, J#PS 

JSR RO, J&FLAGS 
ERROR 2 

R 4S 

ERROR 5 

R 85 

DEC R2 
BLT S$ 

L RO 
BIS8 aTADB,RO 

MOVB RO, (R1)+ 
JSR PC’ a#D0. CRC 
HOV #SERV, JTAVEC 
MOV R2, J#STMPO 
BEQ 
MOV JRSESCAPE , -(SP) 
CLR as SESCAPE 
MOV 4(SP) , -(SP) 
MOV 4(SP), *-(5P) 
ERROR 1 
HOV (SP)+, J8SESCAPE 
ERROR 2 
MOY JHCRC.WD, JHRCRCL 
JSR = RO. a#D0.OMD 
XREAD! INT. EN! ILBS 
MOVB aTADB, a#RCRC2 
CLR #PS 
ISR RO, J#WAITFLAG 
ERROR : 
ERROR 
NOVB 3TADB RCRC2+1 
ISR RO, J#FLAGS 


Fron 10:33 PAGE 45 









SEQ 0061 











AVE THE PC OF THE CAL 

ieey POINTER OF .ASCIZ MESSAGE 

:GET THE READ LINK POINTER 

;ADJUST FOR RETURN 

;PICKUP AND SAVE THE “CRC” T 

; WAS a TED ON THE WerTe 
DATA FOR _TH yurs BLOCK 





:GET ADDRESS OF BUFFE 
:GET at 2 YTES 


LEGAL 
‘CLEAR CRC W 
:GO START A READ” 


;ALLOW_ INTERRUPTS 
sSET TERMINATOR IF LAST BYTE 
WAIT FOR A FLAG 


iN 
sNO_INTERRUPT 

ECLEAR THE WAIT ON INTERRUPT KEY 
sLOCK OUT ALL INTERRUPTS 

SMHAT FLAG OCCURRED 

;7UNKNOWN FLAG 

sIMEER REG” 

S"READY" WITH “ERROR™ 
3READ_A BYTE? | 


;READ_ONE BYTE 
TIT IN THE 


;AND PI BUFFER 
CALCULATE CRC FOR THIS BYTE 
;SET y TO SERVICE THE INTERRUPT 


iL 
;GET NUMBER OF BYTES NOT READ 
SKIP OUT IF 0 
s SAVE THE ESCAPE ADDRESS 
O ESCAPE DESIRED 
‘COPY THE STACK 


;BLOCK READ SHORT 
aRES TORE ESCAPE ADDRESS 


sERROR_ OCCURRED DURING READ 
:SA lies CRC 


;SAVE IST nr OF CRC FROM TALL 
sALL OW INTERRUPTS 

;WAIT ON FL FAG. 

NONE OCC cee 

: INTERRUPT FAILED 

;SAVE 2ND BYTE OF CRC FROM TALL 
CHECK FLAGS 


















KOS 


TALL MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 46 
DZTADC.NEW  @4-MAY-76 00:09 ROUTINE TO “READ” A RECORD SEQ 0062 


2054 O11262 104002 ERROR 2 UNKNOWN FLAG 
e055 ol cbs 104002 ERROR 2 pAXEER REQ" 

spe8 pt tess 14 037000 art BLEADER!WRTLOCK!FGAP! TINERBT OFEL INE aTACS 

Steg Bt tse rane EEROR 58 i ERROR GRC ERROR 

Steg piiere 000020 167632 6&8: a #SWOY, ISWR ‘IGNORE CRC ERRORS? 

2081 911306 001001 BNE 7§ :B 

£063 11310 Lagi 3 ERROR le "READY" AND “CRC ERROR 

2063 O113le 9400 7$: RTI ‘IT WAS A CRC ERROR AND WE ARE IGNORING THEM 


2084 ; SO RETURN TO CALLER 





i no - ——-- - = - 






TAl1 MOTION TEST 
DZTADC. NEW 





011627 





104002 


24-MAY-76 00:09 


2065 
Spee 011314 011637 
2068 011320 012737 

oe 

5pS3 Bt iss 00107 
2071 011334 005037 
2072 011340 004037 
e073 O11 348 104003 
74 O11346 104004 
2075 011350 . 004037 
e076 011354 104002 
077 011356 104002 
2078 611360 O00401 
2079 1136 104002 
2080 011364 032714 
2081 011370 001401 
Pose 011372 O0000e 
011374 104006 


LOS 


MAINDEC-11-DZTAD-C MACY: 1 27(1006) 


001204 


015443 007314 arvgere, 9 aeMFUNC .PSCIZ NAME 
012234 1S: Ee 3400: "CMD SRT “BSFG™ 
Regt INT eh 
177776 sALLOW INTERRUPTS 
011726 GR RO, DWAITFLAG ;WAIT ON FLAG 
RROR 3 NO FLAG 
RROR ‘FLAG DIDN'T INTERRUPT 
012024 JSR RO, a¥FLAGS sFIN ND OUT WHAT FLAG OCCURRED 
ERROR 2 ; UNKNOWN 
ERROR 2 SXFER REQ” 
BR 2g : "READY" 
ERROR 2 :"READY" & “ERROR™ 
004000 2S: BIT SFGAP, JTACS IN A FILE GAP? 
BEQ 35 BR IN NO 
RTI G0 BACK 


3$: ERROR 6 


; ee eg ge Hee ge ara cmemerim amare 
i THIS ROUTINE wei i ee ONE BLOCK 


001204 t 

015467 007314 MOV anxeeae: J#MFUNC 

012234 1S: JSR RO, J#D0; CMD 
XBSBG! INT. seh G0 

177776 CLR : 

011726 ISR Br yilAITFLAG 
ERROR : 


012024 JSR 2 RO, a¥FLAGS 
ERROR 2 
RT 


23-SEP-76 10:33 PAGE 47 
ROUTINE TO “BACK-SPACE-FILE-GAP” 


ep oct ge angina te ae gr oor ar? eemntnegemtarap tease 
juts Rout ,ROUTINE WIL, BAG BACK K RoKe ONE FILE GAP 













SEG 0063 








save PC OF ont 
AVE POINTER OF 





:"BSFG" DIDN’T STOP INA FILE GAP 









eave Lg PC OF THE CALL 
sMESSAGE P OINTER 
:START A “BSBG” 


tye renee ls 
OR A fare 








LAS OCCURRED 


EQ 
ADY"-- GO BACK TO USER 
READY" &” ERROR” 









TAL] MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 48 
DZTADC.NEW 24-MAY-76 00:00 ROUTINE TO “SPACE-FORWARD-F ILE-GAP” 


g © ELK RAAKRAEKA REAL LHS REAR SLL KRA LEA KALA SRKA RRA KELLER FREAK RAS RAE LEESE 
* THIS ROUTINE WILL SPACE FORWARD FOR ONE FIL 
+.SFFG: MOV (SP) ae #SA sSAVE PC OF CALL 
007314 MOV witxSe G, aeMFUNC jPOINTER TO .ASCIZ MESSAGE 
1S: ISR RO “START A “SFFG™ 
XSEFG? INT. "EN!GO 


¥ | BUMALTFLAG 


pa 


;ALLOW INTERRUPTS 
OR A FLAG 


RO, a¥FLAGS 


rurururururorurururoru 


0 -+ bb -+ ob 0+ b+ bb b= b= bb b= 0 0 8 0 9 0 bs 0 2 0 bo Bb = 9 0 2 9 bh pe 


e 
es 
e "READY" AND “ERROR” 
2s: BIT a ‘DID mie STOP IN A “FILE GAP"? 


RTI RETURN TQ CALLER 
(3S: :"SFFG" DIDN’T STOP INA FILE GAP 


QOOVKOKOOOVOVOVOOV00000 

+ b— 0 + b= b+ b -- b= b= b= b= b= b= bp pe 

b— + b— b= b— b= b= bp bb bb = + pp pe 
WUWNUIUU 


wiMmuwi 
Mitta atetctoaa tg 


SLES E ER ELE ELLER ERLE EEE EEF ERE EEE REL ERE EKER ERE ARE RE REEF HERE ESTE 
'+HTS ROUTINE WILL SPACE FORWARD ONE BLOCK GAP 
4 +.SFBG: MOV (SP) ,a#SAVPC ;SAVE PC OF CALL 
007314 MOV anXSt BC, aeMFUNC SPOINTER TO ASEIZ MESSAGE 
012234 1S: JSR RO, a#D0: CMD ?START A “SFBG™ 
XSFBG! INT. ENIGO’ 
177776 CLR aHPS sALLOW_INTERRUPTS 
011726 RO, , JRWAITFLAG ; WATT FOR A FLAG 


;NO FLAG 
4 NO. INTERRUPT 
012024 S peu if Je OUT WHAT FLAG 


. e sar ER REO 
001246 @#ASKKEY iy RUNNING UNDER MANUAL LOOPING? 
eg :BR_IF NO 


i) ea ;RETURN 
104002 : 4 "READY" AND “ERROR™ 


— 
(BED SOP e COFOr 200 SOPOT E Conor C000 IOUT -Eoonor— Dee Wa oo 


e 
e 
e 
2 
2 
e 
e 
e 
e 
e 
e 
4 
e 
e 
e 
e 
e 
2 
é 
e 
2 
e 
» ee 
FS 
2 
2 


AQOVOVOVOVOOVOOOKOV000 
— 





be 
~~ 


oO 
i] 
—~4 


bbe ree 
arate 
oor. 


= b= 0 92 b= p= ps pe pp ge 


CoOrurn 


WOES eee eceee S 
GARE Ee 


uw 


ruorururururororururure rurufurorufurorurururorururururorure 
o 


02 b= bs 2 be ban 0 be fame he bo Bs bs Fe pe po pe 
oo OodO 
ppppeeepssse2ssnse2299229099 


Pea a aaa Ra 


001204 
015354 
012024 


187416 
020000 
167402 
012234 


177776 
011726 


012024 


o200c0 


MACY11 27(1006) 
ROUTINE TO REWIND THE TAPE 


ss ERKKA AALS KERALA KARE REL ELE RHEL HALAL EA LALA RES SES FLERE RRS KEELE RE 
THIS ROUTINE WILL REWIND THE TAPE 
.RWND: MOV (SP), J#SRYPC 


J8MFUNC 
S) 


MAINDEC-11-DZTAD-C 
00:09 


ISR RO, J#D0. 
XRWND! INT. EN! GO 
CLR it 

RO, 34WAITFLAG 


#MXRIIND 
RO, J#FLAG 


b= FS bh 


SRUOFLG 
LEADER, ATACS 
SRUDFLG 

CMD 


4 
RO, J#FLAGS 


ss 
#LEADER, JTACS 
3$ 


7 


-_--—— ~-— --—_ o_ 


NOS 


23-SEP-76 10:33 PAGE 49 





YES 
!0N CLEAR LEADER? 


TALLOW THIS ERFOR ONLY ONE TIME 
T SHOULDN’T BE 


;ON CLEAR LEADER BU 
;GO START A “REWIND 
;ALLOW INTERRUPTS 
;WAIT ON FLAG 


NO FLAG OCCURRED 
!NO_INTERRUP 
:WHAT FLAG OCCURRED 


: UNKNOWN 

:"XPER REQ” 

:"READY™ 

"READY" & “ERROR™ 

sQN “CLEAR LEADER"? 
S---RETU 





sYE TURN 
; REWIND” FAILED TO GO TO “CLEAR LEADER” 








BOb 


TOLL MOTION TES? MAINDEC-11-D2TAD-¢ MACYL! 27(1006) 23-SEP-76 10:32 PAGE SO 
O2TSOS NEN EM-may-7 00:05 ROUTINE TO WAIT FOR A FLAG 












5&3 CObE 


21sés p RRARERARRALR RAL AS LAER ELS SER ALES ELA LA LE ARLA ESF ELESLEL ELE LEE 
e120 : tts ROUTINE IS USED TO WAIT ON A FLAG 

e172 CALL: 

3173 : ISR RO, JSWAITFLAG 

5374 : RETURN FOR NO FLAGS 

ei; : RETURN FOR NO INTERRUPT 

e176 : NORMAL RETURN 

Bic i H 

2i78 D172 WAITFLAG: 

2i7S 511736 OOS0E7 OoCoS4 CLR LOCNT > : ZERO THE LOW COUNTER 

2180 O11732 316767 000064 occode9 MOV MAXCNT, HICNT :SET THE HIGH COLNTER TO MAX.COUNT 
218} 011740 O3e777 Od0004C ié7i72 SIT aswos, aSWR : RUNNING WITH INTERRUPTS? 
2iS2 O11746 092403 he h¥e) YES 

2183 O11750 O127E? 177777 167276 MOV 8-1, WAITKEY SET THE INTERRUPT OCCURRED FLAG 
2184 O11756 932714 d00240 i$: BIT sTR:REQIREADY,JTACS : TEST FOR FLAGS 

2i8S Oli7ée 001007 BNE 2$ -BR IF A FLAG IS U 

2186 O11764 005267 000026 ING LOENT = COUNT [He LOW SoUNTER 

2187 O11770 O0l1372 SNE 1$ :LOOP IF NOT 

2188 Oli77e 005367 oc00022 DEC HICNT :COUT THE HIGH COUNTER 

218S O1177§ 10036; BPL 13 :LOOP IF NOT NEG. 

2180 O12006 990405 9k 3$ LEAVE 

219: 012092 995720 3 7ST  (ROI+ s INCREMENT THE SETURN AQORESS 
2i82 312004 OO0S7E7 167244 TST WAITKEY :LOOK AT THE WAIT ON INT. KEY 
2193 O12010 901401 BEG 3$ -BR IF Aor SET 

“2184 12012 o0S720 TST (RO)+ : INCREMENT THE RETURN ADORESS 
2195 012014 000209 : RTS RO “RETURN TO USER 

€i3& 012016 990500 LOCNT: 9 

2197 12929 998090 KICNT: O 

2:98 O12022 00900 MAXCNT: O 





MACY12 27(1006) 23-SEP-76 10:33 PAGE Si! 
ROUTINE TO EXAMINE THE FLAGS 


MAINDEC-11-DZTAD-C 
e4-MAY-7§ 00:09 


2 2 


pF RRRRRR RRR REE EERE ERERALER ERE RRERERE EEE RASH ERAS SEER EEE EES SESS 
;THIS ROUTINE IS USED TO DETERMINE WHAT FLAG IS SET 


wrt 
3CI09 


ue-O 


forururururonty 
UrUfuroruronorur ~ 


ia eA eS 


Ture rusreatey 


furrururururury 
0+ © 0-2 0 9 6+ 9-2 pe) 


foru 
m 
ie 


(1. 0D NOU£ Wtue- Ow 


RO 


furururunone 
fulu 

aoo000 

6-26 ~~ 6-2 ps 


yy 
i 


ur 
mu 

tutu 

Oo 

ao 

ao 

fae, 
“IO 


n 


+ 
8 
- 
to 


. 


eu 


-) 


NOMOANYONAANOGOB9GENG0NO 
fturorururut 


02 0-+b 020 
ICI Oo 0-- 


oOnon 


etopettsin 
O-900 
wou 
Couey 


porarureraran 
SVEN 
*O0D NOU Eo 


RO, JeFLAGS 
FOR UNKNOWN FLAG 

FOR "TRANSFER REQUEST” 
FOR “READY™ 

FOR “READY” & “ERROR” 
#TR.REQIREADY, ITACS 
LVFLAG 


: L 
(RO}+ INCREMENT RETURN ADDRESS 
aTACS :CHECK FOR "XFER REQ” 

' LVELAG ;8R 5 - 
(RO)+ : INCREMENT RETURN ADDRESS 
sSW0S,2SWR :STALL? ? 
33 -BR IF NO 
RO, -(SP) ::PUSH RO ON STACK 
R1'-(5P) >:PUSH Rl ON STACK 
DeSTALL, RO “GET STALL TIME 
JSSTALL+2,R1 
#1,RO STALL 
13 LOOP 
(SP)+,8! ::POP STACK INTO R1 
(SP) +'R6 ::POP S7ack INTO RO 
aTacs -IS “ERROR” SET 
LVFLAG :BR IN NO “ERROR” 

{RO} : INCREMENT RETURN ADDRESS 


SCHECK FOR "XFER REQ” OR “READY™ 
NO F 








furunororurufruror 
forururororofarorars 
££. 5 


ruryraty 


OG ENE LUO LUT OO TU EUCo Erure 


8 


: 


TUrururune 


ONYVOOGOVOHOVGOOODHHVOOODDONMDODODODBDODDOLVO0D00 
Peer eelayy Tue --0-- 
tet tetera es 


+ 0+ b= b= 0-2 8-2 b= b+ 02 b= b= b= B= Be b 2 b= 0 bre b= b= Bo Bo bo 2 2 pe he 


turururu 
rorororu 





MAINDEC=21-DZTAD-C 
24-May-76 00:09 


000910 000054 


0o0074 


177776 


o400Ce 


000914 





MACY’ 
ROUT. 


© FRRARERSLSRSLAFSRA RE RSLS SA SRLKLHRLE LEAS RRA ALRALAFSSFLEREFLELFEFLE 
this ROUTINE WILL CALCULATE THE CRC 


JSR 


) 23-SEP-76 10:33 PAGE Se 
2 CALCULATE THE CRC SEG 008 












;RO=1 BYTE OF DATA 


Push RO ON STACK 
PUSH R1 ON STACK 





tPTCRUP THE CRC WORD 
;GET THE PARTIAL CRC WORD 
‘But oft ty is ei BUT gi70o 


;AND SETUP TO XOR IT 
FORM THE XOR OF “R1" AND “Re” . 


;RESULTS TO “Re” 


;FORM THE XOR OF “R1” AND “RS” 


;RESULTS TO “R32” 


:BR IF MORE BITS TO DO 
P STACK INTO RY 





sCRC WORD 











TALL MOTION TEST MAINDEC-11-DZTAD-C 
OZTADC.NEW 24-MAY-76 00:00 





227, . ; 


227, © SRRRERHKFES SRLS SA ASSESSES EAS RLRE SESE KRESS RLS A SLA FLL E KALA EKSE 
sec . S+HIS ROUT. WILL LOAD THE LOW BYTE OF TACS WITH THE DESIRED FUNCTION 
ea? . CALL: 

2277 : RO, J8D0, CMD 


2273 : 
2280 . 
228! g1ge34 Q10146 sean, 00-CMD: 
D292 Ole23e Olev3r OOO34O 177776 
2283 012044 912001 

e284 Ol2e46 342701 177640 

2285 OleesSe O320777 O00040 166660 
2286 12260 001405 

228? Olesse O8e701 000100 

2288 Olesse Ole777 O12366 166734 
2289 Ol2e74 OOSOB7 166754 $ 
2299 912300 9632701 609100 

229] O1e304 001403 

22S Oles06 012777 012350 166714 
2293 012314 110114 $ 
2294 012316 932701 000001 

2295 Olesee 001403 

22% Olese4 032714 ooco4o 18: 
2297 012330 001375 

2298 912332 005101 2s: 
2299 012334 O42701 177761 

2300 612340 019177 166712 

220: 912344 912601 

eve Ole346 o0C200 


2304 © SHESKSKSHLRAESAAHEAE LS SR ALA RE SSSA EA TAAEALSRLSAARAKLARERLSERELARELE 

e205 +HIS ROUTINE WILL SERVICE ALL LEGAL INTERRUPTS 

2307 012350 012737 177777 O01254 SERV: MOV 8-1, DUWAITKEY ;SET THE WAIT KEY 

2308 012356 012777 O12366 166644 MOV sBABINT , aTAVEC :SET TO CATCH ILLEGAL INTERRUPTS 
e208 Di2364 900002 TI 

231 © SSEFESESERSSSSRSSRSSSESL SEAL RAAT SSRLETLFERERHL SARE ALALRERELLAEE 

sig tus ROUTINE WILL CATCH ILLEGAL INTERRUPTS FROM THE TALL 

2314 012366 011637 001204 BADINT: MOV (SP), JeSAVPC :SAVE WHERE NE WERE AT 

e318 912372 194014 ERROR 14 : ILLEGAL INTERRUPT OCCURRED 

esis 













MACY11 27(1006) 23-SEP-76 10:33 PAGE S3 
ROUTINE TO PERFORM THE REQUESTED FUNCTION 





SEG 00&9 











ISR 
DESIRED FUNCTIN’ 
RETURN 











MOV 1,-(SP) :SAVE R1 
MOV 2340, d4PS LOCK auT ALL INERRUPTS 

MOV (RO)+ ioe THE COMM MAND 

gIC SRO TA EN! ILBS!FUNCTION'GO> RI ;STRIP AWAY JUNK 

gtr o aSWR suit TH OR qtTHCUT INTERRUPTS 

pic #INT.EN, CLEAR INTERRUPT ENABLE IF SET 
MOV SGADINT’ Bt AVEC :SETUP TO CATCH BAD INTERRUPT 
CLR WAI TKEY :ZERO THE WAIT ON INTERRUPT KEY 
BIT SINT.EN,RI s RUNNING WITH INTERRUPTS? 

MOV BSERV, JTAVEC : SETUP "5 SERVICE THE INTERRUPT 
MOVB RI. aTACS :LOAD THE © 

BIT #60,R1 :IS GO BIT ONA "1"? 

BEQ 2¢ ‘BR IF GO = 

BIT Dp ,aTACS :WAIT FOR "READY" TO CLEAR 

COM ;SET OR CLEAR REWIND FLAG 

BIC BICCFUNCTION, RI ?EXTRACT FUNCTION BITS 

MOV 1.aR WOFL :AND SAVE AS THE REWIND FLAG 
MOV oe, :GET R1 BACK 

RTS RETURN TO USER 














TALL MOTION TE 
DITADC. NEW 


nt pal it a MACY13 27(1006) 23-SEP-76 10:33 PAGE S4 


#HRRHPHSER MANUAL ADJUSTMENT ROUTINES #eeeeeese 


5p RRARAARARARARAR AE SES REL S LAS RASAELE SEALALERELE SLAF ELESLAF AS SSSS~ 
£ s FERRER ELARARASESSSSAALSLESAELESALALALELSLSLFLEFEFSASLERESSLI AAG? 


: THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TS THE TUEC 


“NOTE: @@@ BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 eee 












TAL] MOTION TEST MAINDEC-11-DZTAD-C MACY1! 27(1006) 23-SEP-76 10:33 PAGE SS 
DZTADC. NEW 24-MAY-76 00:09 HHHRHKHRES MANUAL ADJUSTMENT ROUTINES ##e4eeeeEe SEG 0071 


2321 ala meres, abe USING SOFTWARE SWITCH REGISTER THE 
T_ HAVE BEEN pieat ED AT. A 
NORMAL STARTING ADDRESS FIRST SO THAT 
THE AUTO-SIZING ROUTINE CAN SET UP ADDRESS 
4: AS THE ‘at ARE SNITCH REGISTER 
CE VALUE INTO 1 be 


a4 5 AER 










te bd be 
SRY 














30 
e331 1 REET ITE FILE CAPS FRON BOT’ 10 “Loree 
esse. ;* WRIT - FILE GAPS FROM “BOT” TO “EOT” 
2333 ;START AT 220 
2334 ; THIS. ROUTINE a BE USED TO ADJUST THE “WRITE GAP MONO” AND 
2335 “WRITE DE MONO” 
2336  enenuelacdunensadasetenessesesenepeesonnens THE STACK OUT OF TH 
Be pe gee uy eee eins Oui ae 
5335 BiSuoM 139 01354 MOV STOEL’ TAGE : :DAT BUFF - R pels fone 
2340 012410 900005 RESET ;RESET 
2341 QOle4le Ole737 012374 001110 MOV #WFGSUB, J#$LPERR : SETUP THE LOOP. ON ERROR ADDRESS 
es42 Ole4¥eG 104422 SELDRV :SELECT THE DRIVE 
2343 Ole4¥ee 112714 000017 MOVB #XRWND! GO, JTACS ;SEN hag? TQ “BOT” 
est4 0124 032714 O00040 100$: BIT #READY, JTACS :WAIT ON READY 
2345 Ol2e43e 001775 ’  BEQ 100$ 
2346 912434 104412 1$: WFG ;WRITE A FILE GAP 
" peat 012436 peed c20c00:—Ct Bit #LEADER, aTACS AT “CLEAR LEADER"? 
48 Clete 17 Q 1$ :BR IF NO 
2349 012444 000000 ; HALT ;STOP IF YES 







e350 Ole446 000752 BR WFGSUB :LOOP ON CONT. 





2353 5 EEERRARE KLEE EE RERE LEER REALS EEE EE EEA EEE E ERE REE R EL ERA EERE EERE 
2354 ' : WRITE CONTINUOUS BLOCKS OF DATA 
2255 sSTOrT AT gst 






S& ; ; THE PROGRAM WILL HALT THREE(3) TIMES 
2357 . sAF TER EACH HALT oh THE SWR AND PRESS CONTINUE 






sHALT fi N ED 
2360 sHALT 3 --- SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
: : THIS ROUTINE CAN SE USED TO ADJUST THE “GAP TIME MONO" 












MACY11 27(1006) 
WRITE CONTINUOUS BLOCKS OF DATA 


fHIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
Pore ie ea CE 


not MOTION TEST —— 


g 


ao 
<£ 


Ha at 


attra ta th 


ES curve 


ONVdOOVOOVOOVOOOO00N0 
Hath 


mentee SY gn OOO eee 
AD ae — CONTINUOUS BLOCKS OF DATA 


:THIS ROUTINE CA CAN BE popes TO ADJUST THE “SIGNAL MONO” 
sesenedncontucegscastyssoneneioeeasaaeayeeacenenaneaesceanees 


sector Te EO ETO CE OOO Re ee 
A ee AND A BLOCK OF DATA FROM BOT 10 EOT 


ist PROGRAM WILL HALT THREE(3) TIMES 
:AETER EACH HALT SET THE SUR_AND PRESS CONTINUE, 


mT 2 --- SWR<7:0> = PATTERN DESIRED 

ALT 3 --- SWR<15:0) = OPERATIONAL SWITCH SETTINGS 
iTaTs ROUTINE CAN BE USED TO ADJUST THE “WRITE GAP MONO” 
AND THE “GAP TIME MONO". 


23-SEP-76 19:8 PAGE S6 











PC Q4SE TBUF *GET BLOCK SIZE AND PATTERN 
asta “KEEP THE STACK OUT OF THE 
seracet: Tae ‘SETUP THE TALL STATUS AND 
JeTADBL; ;DATA BUFFER REGISTERS 
SET THE WORLD 
SWLOOP, 28SLPERR ;SETUP THE LOOP ON ERROR ADORESS 
-SELECT THE DRIVE 
#XRWND!GO, ITACS :SEND TAPE TO “BOT” 
#READY, JTACS :WAIT ON READY 
WLNKX ;WRITE A BLOCK 
kLEADER, JTACS AT TCLEAR LEADER"? 
1$ -BR IF N 
:STOP IF “EOT™” 
WLOOP ‘LOOP IF CONT. 

















E “THRESHOLD P 









STA sKEEP THE STACK OUT OF THE WAY 
aBTACSL. Facs -SETUP THE TAL! STATUS AND 
JSTADBL; TADB DATA BUFFER REGISTERS 
:RESE WORL 
#ROSUB, #SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
SELECT THE DRIV 
#XRWND!GO, ITACS *SEND TAPs TO “BOT” 
#READY, ATACS ;WAIT ON READY 











: FAD A BLOCK 

BSTACK, SP :INIT. IN CASE OF ERROR 

#LEADER, aTACS “AT “CLEAR LE OER"? 

RDSUB ‘BR I --- 

:COMPARE THE BEAD AND WRITE BUFFERS 
“LINK TO THE READ BUFFER 

LINK TO THE WRITE BUFFER 












1$ 















~~~ SWR<7:0> = NUMBER OF BYTES PER BLOCK 














TALL MOTION TEST 
DZ 


TADC-NEW -24-MAY-76 
Big 
Sui? 
ei18 012620 904737 
1§ O1zes4 0127 
5439 915e30 013704 
5451 O12634 613705 
53 15640 000005 
ueS O1De42 012737 
S454 Q1S6S0 1044z2 
5ySq gisese 112714 
5458 O12686 035714 
Sys? Qisee2 901775 
S458 O1se69 104412 
545g O12666 032714 
5430 Olse72 O01 
5431 O1De74 104413 
Sy32 012700 O32714 
5433 015704 01767 
5434 015706 900000 
5435 015710 000745 
Su5e 
5437 
5439 
5439 
5449 
5441 
Su45 
5449 
Suyy 
Sy45 912712 012706 
S448 015716 013704 
Suy? Qis722 013705 
—-Byye gi5726 g00005 
544g 015730 012737 
5450 015736 109422 
5481 015740 112714 
Sues Qis74uy 035714 
5u85 Q15750 O01 
Suey Qis7s2 104414 
Sys5 915756 012706 
5ys_ Qis7e2 035714 
Sue? O15766 001351 
S458 015770 104423 
Sueg Q15772 017016 
S4e0 Ole774 O17062 
546] 012776 104420 
Sye> 913000 032714 
5ye3 013004 001342 
S464 013008 O0076! 
Sues 
SuEe 
5467 
Suge 
Sue9 
5470 





00:09 


020000 


0170Se 
020000 


001100 
001220 


001224 
012712 


009017 
009040 


017016 


001100 
020000 


o200d0 


MAINDEC-11-DZTAD-C 


001110 


001110 





eye 27(1006) 23-SEP-76 10:33 PAGE $7 . 
WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT SEQ 0073 


THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
SHH HEHEHE HGH GGG eo 


ipa K: at ee stheK oe iREEp oti sTack ah Or Tae ha 


WGBLOP 
” MOV set ACSL, TACS SETUP T 
MOV JSTADBL, TADB : DATA SUFFER Mb cter aire 
RESET ; RESET T D 
MOV #WGBLOP, J#SLPERR | SETUP THE LOOP ON ERROR ADDRESS 
LDRV :SELECT THE DRI 
MOVB SXRUNO! GO aTACS :SEND TAPE TO “BOT” 
100$: BIT aTACS ‘WAIT ON READY 
BEQ tee 
13: WFG ;WRITE A FILE GAP 
BIT #LEADER, JTACS “AT “CLEAR LEADER"? 
BNE 2s ;BR FY 
WRITE  ,WLNKX “WRITE A BLOCK 
BIT BLEADER, aTACS :AT "CLEAR LEADER"? 
BEQ 1$ 0 
23: HALT ISTOP A T “EOT" 
BR WGBLOP :START OVER ON CONT. 
5 RRA ALAA ALAA REALL L LARA LALA LEAK LARA AA RARE LARA ARE R ERASERS 
: - READ ND COMPARE A BLOCK OF DATA AND A FILE GAP 


THIS ROUTINE IS USED AFTER “WRITE A BLOCK AND A FILE GAP™ ROUTINE 
iT ae A, ae THE “SIGNAL MONO”, THE THRESHOLD POT” 


speeessbeteaatbegraneersanertoasberesanpeesaaapetsaaaneesaaaen 


béPeLK: MOV #STACK, SP sKEEP THE STACK OUT OF THE WAY 
MOV sRTACSL TACS ‘SETUP THE TAL] STATUS AND 
MOV. SE TADEL’ TADB sDATA BUFFER REGISTERS 
RESET RESET THE WORLD 
MOV #RGPBLK, J#SLPERR ; SETUP THE LOOP yon ERROR ADDRESS 
SELDRV LECT THE DRIV 
MOVB wXRLIND! GO aiAcs SEND TAPE TO “BOT™ 
100$: BIT SaTACS WAIT ON READY 
BEQ aa 
18: READ RLNKX sREAD A BLOCK OF DATA 
MOV HSTACK, SP “KEEP OUT OF THE WAY 
BIT #LEADER, aTACS sa "CLEAR LEADER"? 
BNE RGPBLK IF YES 
BLKCMP : COMPARE THE READ AND WRITE BUFFERS 
RLNKX ' +  $LINK TO THE READ BUFFER 
WLNKX _ LINK 10 THE WRITE BUFFER 
SFBG :GET INTO FILE GAP 
BIT #LEADER, JTACS “AT “CLEAR LEADER"? 
BNE RGPBLK *BR IF YES’ 
BR 1$ :LOOP 


HH HHE HHH HEBH HEHE CHEE HEHEHE HEE EEG HEHE ERE RHEE 
; rSTaRT AT ew FILE GAP FROM “BOT” TO “EOT™ 
;THIS ROUTINE CAN BE USED AFTER “WRITE FILE GAP” FOR LOW SPEED 
; SPACE POWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 










TALL MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE S8 
DZTADC.NEW e24-MAY-76 00:09 SPACE FORWARD FILE GAP FROM “BOT” TO “EOT” a SEQ 0074 

















7, :WRITE A F a AP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
4? , ?(SIGNAL MONO CAN BE CHECK 
yry AREER AAR RHEHERE ERE EEHREEEEHEHEREEE EEE ENE REE EEEEEEEN SHEETS 
475 013010 012706 001100 dfrgce: M #STA STACK OUT OF THE WAY 
P47— 013014 013704 001220 NOV aPTACSL TACS ‘SETUP THE me STATUS A 
Eat 13020 013705 901224 MOV J#TADBL, TADB ;DATA BUFFER REGISTERS 
78 613024 900005 RESET "RESET THE WORLD 
2479 013026 912737 013010 001110 MOV #SFFGSB, J#SLPERR :SETUP_THE LOOP ON ERROR ADDRESS 
2489 013034 104422 SELDRV ‘SELECT THE DRIVE 
2481 013036 112714 000017 MOVB § #XRWND!GO,aTACS “SEND TAPE TO “BOT” 
e482 013042 032714 OO00040 100$: BIT #READY, ATACS ;WAIT ON READY 
2463 013046 901775 BEQ 100$ 
2484 013050 104417 1S: SFFG : SPACE INTO A FILE GAP 
248s 013052 032714 020000 BIT #LEADER, JTACS AT "CL EAR LEADER"? 
2485 013056 001774 . BEQ 1$ BF IF N 
, 2487 013060 900000 HALT :STOP AT “EOT™ 
2488 013062 000752 | BR SFFGSB :LOOP ON CONT. 











30 
2431 oii -+1-7a-+'5-i 110 s-seb 

2492 : K SPACE FILE GAP 

2493 oO TART AT 250 

2494 THIS ROUTINE CAN BE USED 10 ADJUST OR CHECK THE “SIGNAL MONO”. 
2455 Re etre retire tt ieee 

2495 013064 900005 béFcsB: RESET *RESET THE WORLD 

2497 913066 012737 013064 001110 MOV #8SFGSB, INSLPERR sLOOP ON ERROR ADDRESS 

2498 013074 O05067 i66072 CLR SESCAPE SOON’ T ESCAPE ON ERROR 

2489 013100 104422 SELDRV SELECT THE DRIVE 

2500 913102 104415 1: BSFG BACK SPACE A FILE GAP 

2501 013104 714 o20000 BIT #LEADER, aTACS “AT "CLEAR LEADER? 

2502 013110 001774 BEQ 1$ 3BR I 

2503 913112 o00000 HALT :STOP AT BOT 

e504 013114 000763 BR BSFGSB ' START OVER ON CONT. 






2507 jee OO TO LOCO EO eee 

2598 READ AND WRITE LINKS FOR SUBROUTINES 

2509 O1311& 905C00 wine a RO 

2510 012120 Oo00000 HALT ;OPERATOR PUTS BYTE COUNT IN THE SWR 





TALL MOTION TEST 


Su BS Rs 


MAINDEC-11-DZTAD-C 
76 00:09 


000176 166019 


fru 
ul 


UHUTUTO TU 

Cu000 IOUT worD 
QONdIKdK0N000000 
b= bb bb hem ee 


Hath 


furu 
Rees 


0+ 6 b= b= 9-2 f= fo pn po fo 9 ge 





20s: 








MACY11 27(1006) 10: AGE $9 
SETUP READ AND WRITE LINKS FOR SUBROUTINES 


USING g S/H SUITCH REG? 
arr INUE 
sPICKUP THE BYTE COUNT 
-BR_IF NON-ZER 
CHER IF GREATER THAN 377 
*SET FOR MAX ALLOWED 
*MAKE IT 377 OR 1 


WRITE L 
SET PATTERN NTO THE SWR 








TAl1 MOTION TEST 
DZTADC.NEW 24-MAY-76 00:09 


2 013176 

BL e0e 
2 8 foi 
s80 Olsel8 
253i O132i4 
2532 013216 
2533 Ql3e2e0 
eS34 Ol3eee 


022767 000176 165742 
001001 


000000 


MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 60 


165732 
017122 









SETUP READ AND WRITE LINKS FOR SUBROUTINES SEG 0075 
CMP #SWREG, SWR sUSING S/W SWITCH REG? 
BNE 21$ sNO- GET OUT 
GTSWR :GET_VAL 
21$: * CONTI 
MOV JSWR, RO sPICKUP THE PATTERN 
MOV #WBUFX, RL sPICKUP FIRST ADDRESS OF SUFFER 
MOVB RO, (R1S+ ‘FILL THE BUFFER 


HALT ;SET OPERATIONAL SWITCHES 








24-MAY-76 00:00 
cox Ot aes3 rte 000176 165706 
eS37 013234 1044 
555 BI 3S3e 000207 


TAL] MOTION TEST MAINDEC=11-DZTAD-C 
DZTADC. NEW 


22s: 


MO6b 


MACY11 27(1006) 23-SEP-76 10:33 PAGE 61 
SETUP READ AND WRITE LINKS FOR SUBROUTINES 







CMP #SWREG, SWR he S/W SWITCH REG? 
BNE ees - GET OUT 
GTSWR GET VALUE 

TINUE 


RTS = «PE RETURN : 





TAl] MOTION TEST 
DZTADC . NEW 


RI ATAIRL AY RY ALATA AL YATRA 
FISD RS ad atta ti Se 


WWOGW 
more — pp 
fom £cMuMo 


165713 


000002 


oo000e 
000011 
000200 


000130 


090056 
165620 


165610 
000091 


000932 
000072 


000040 


000014 
000007 9000052 





a or ume 27(1006) 23-SEP-76 10:33 PAGE 62 


-SBTTL TYPE ROUTINE 
iiocaraat Gt Sia Gaede Enaanee Geman Tea VETTE Et 


ine DUTINE KIEL bal hie UNBER ef hana eR SHOR a ne eae LIne EEE ED. 


Weal 
#1) USING A TRAP INSTRUCTION 
TYP » MESADR 


3B 
G0 T YPE A 
33D0 NOT COUNT AS A COUNT 
; LOOP 


HORIZONTAL TAB 
;sREPLACE TAB WITH SPACE 
 aRancy IF NOT AT 

:;POP SPACE OFF STACK 


















MESSASE MUST. Ma nar W 





FILLER CHARACTER. 
“NUNBER OE FILLER CHARE TERS REQUIRED. 
CHARACTER T LL AFTE 












;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 













:;1S THERE A TERMINAL? 
::HOLT HERE IF NC TERMINAL 
9? 
33 











VE RO 
;GET ADDRESS OF OxCle STe 
: PUSH ae MS TO Be PyPERS ONTC STACK 
IT ISN’T THE TERMINATOR 
3 31F tee t TOR POP IT OFF THE STACK 
; ;AOJUST RETURN PC 
;RETURN 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;;POP_ <CR><LF> EQUIV 
3; TYPE A CR AND LF 





























ne a a ene nme mm ae ee ee ee mente nee © ee ees eR eR Rn Nee em Rey em SE Se a I ER © A eo Se ee 


TALL MOTION TEST | MAINDEC@11-DZTAD=C MACYL! 27(1006) 23-SEP-76 10:33 PAGE 63 
DITAOS.NEW = B4=MAY-7E 90:09 TYPE ROUTINE S£9 0079 
2596 013406 ocorey ch 23 +:GET_NEXT CHARACTER 
2537 pistlo Osi77 185534 STYPFC: TST3  JSTPS :;WAIT UNTIL PRINTER IS READY 
2538 iia iS 1583> BPL STYPEC 
2593 O13416 116577 oco002 1Essze MOVB  e2(SP) a$TPB ;;L0AD CHAR TO BE TYPED INTO DATA REG. 
Bee O1s4o4 [se7s6 O000!1§ 00002 cMP8 saw ESP) 3325 CHARAC’<R A CARRIAGE RETURN” 
2601 O13432 00100 é BNE 1$ :BRANCH IF NO 
2502 913434 105067 000014 SLRE = SCHARCNT : YES--CLEAR CHARACTER COUNT 
e603 13440 905406 35 STYPEX sEXI 
2s04 O14 1E27ES OCOO12 COOdd2 18: CMPB «LF, 2 (SP) 1118 CHARACTER A LINE FED? 
2505 913450 901492 829 STYPEX : H_IF YES 
2608 919452 105227 INCB ss (PC) + 3; COUNT mt aE ts ARACTER 
e507 913459 300090 SCHARCNT: WORD 0 :: CHARACTER COUNT STORAGE 
3708 O:3458 900207 STYPEX: RTS PC 
a 
* 3519 .SBTTL TTY INPUT ROUTINE 
2sl2 p FRRERERREREARRA LAER ELE LE RARE EAA RA RARA LAER ESAS LEASES SELLE SES 
313 'ENABL LSS 
J €5i% 
. 2bis sRRERRERELERAERA ERAS RSE RALA LEER ARREARS REELS EEE E ELSE TEES EELS E4 ESSE 
251 IESOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
2617 :#ROUTINE I5 EN NTERED FROM THE TRAP HENDLER AND WILL 
2618 :4#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
2618 WHEN OPERATING IN TTY FLAG MODE. 
2520 O13460 022767 O00175 issuse $cKSWR: CMP #SWREG, SWR 3:IS THE SOFT-SWR SELECTED? 
2621 D12466 001974 ENE 12s ;38RANCH IF NO 
ese2 013470 105777 165450 TSTB = AS TKS CHAR THERE? 
fees 013474 100971 SPL 153 Te NO, DON’T WAIT AROUND 
24 O1347S LI774e = 1és444 MOV8 = SETKB,-(SP) ::SaQve THE CHAR 
ebe5 913502 O42715 177600 1C BtC177, (SP) ::STRIP-OFF THE ASCII 
BSe 013506 S22726 00007 : CMP #7, (SP ‘+ 331 ITA CONTROL G? 
ese7 013512 oo1062 BNE 15 :3NQ, RETURN TO USER 
2628 013514 126727 165414 000001 CMPB 4s SAUTOB, #1 SARE WE RUNNING IN AUTO-MODE? 
ee? 013522 o01456 BEG 15$ SIBRANCH IF YES 
sou 
2631 913524 104401 914205 __ TYPE =, SCNTLG ;:ECHO THE CONTROL-G 16) 
2632 013530 104401 O14212 SGTSWR: TYPE SMSWR S:TYPE CURRENT con TENT 
2633 913524 O1674—6 164436 MOV SWREG, - (SF) £1 SVE SWREG FOR T YPEQUT 
| 2554 13540 io44oe TYPOC :G0 TYPE--OCTAL ASCIICALL DIGIT 
2635 013542 i0440] 014223 TYPE =, SMNEW ‘PROMPT FOR NEW SHA 
2536 013546 d0s046 198: CLR -(SP) ; ;CLEAR COUNTE 
| #637 013550 9050 CLR -(5P) aigH SWR 
| 2638 013552 105777 165366 73: TST8 = BS TKS TICHAR THERE? 
2623 613556 100375 BPL 7§ ::IF NOT TRY AGAIN 
! 
| 2641 O13SEC 117746 165362 MOVB  a3STKB,-(SP) ;:PICK UP CHAR 
ete 613564 O4e71§ 177600 BIC BtC17?, (SP) IIMAKE IT P-BIT ASCII 
| ibe 
| BENS | 
| 246 012570 O21627 oD0025 9S: cMP (SP), #25 s:IS ITA CONTROL -U" 
| 2647 813574 001005 : BNE 108 1 BRANCH IF NOT 
| 2648 013576 104401 014200 F TYPE SCNTLU NTROL-U (tu) 
| g643 013602 062706 OOcOd6 _ 208: ADD be SP STENORE pREV IOUS f INPUT 
| -gb50 Clee 000757 BR 198 sLET*S TRY I 
Fd BE 
| 





ee _— : =e rene ae 






tin 
c o- 
an 
ae] 


—1> 
5 
© 
firs 
= 


J-4 


eee 
ROSAS 


Hi 

ao 

ao 
ONIYIVIOVIIOIOOVONIOOWVOOIVOVOoOOVOH 


furor 
Cadeadeadead CadeadtadeadeadGadeadtad tadtaPtadtadtadtadtad tadeadtedeadearean ect 
or 


roo: 


adits 
ho £O 


if 


agitated teat ats 
OruCrUCOre 


4s 


tw 


ae 
ge 


at mielevie-sete 3 


Bare) 
© 


0 ~*0-+ 62> 2) + 0-0 + bo + 0-8 2 9-0 b-* 
PS 
oO 
- 
© 


TEST 
24-MAY-76 00:00 


Besss7 
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000015 
000004 
009002 


0000 
001201 
165267 


000100 
177S2e 


009066 
000087 
009060 
000002 
090002 


7997) 


001200 


000094 
165166 


165162 


pode! 


ococo4 


165306 


000001 
165264 


o000Se 


000904 
000904 


00°023 


000140 







TTY INPUT ROUTINE 





10$: CMP (SP), #15 315 1 iT a ck? 
BNE 18$ ; {BRANCH TF _NO 
TST 4 (SP) YE is, T we FIRST CHAR? 
BEQ 113 :3BR 
MOV 2(SP) ,aSWR »: SAVE Ce 
118: a00 #6, SP ::CLEAR UP 2 Tac 
148: TYPE $cRLF s ECHO <ER> 
CMPB 4s SINTAG, #1 RE-ENABLE ane Kab INTERRUPTS? 
BNE 1S$ taRA NCH I 
MOV #100, 3$TKS ;]RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI URN 
18$: JSR pc STyPEC : ECHO CHAR 
CMP Par #60 :CHAR < Q? 
BLT 1 BRANCH IF YES 
CMP M3 as? ::CHAR » 7? 
BST 18 : BRANCH IF YES 
BIC #60, (SP)+ ss SIRIP-OFF Asc 
TST 215 -:1S THIS THE FIRST CHAR 
BEQ 173 ::BRANCH IF YES 
ASL (SP) ::NO, SHIFT PRESENT 
ASL (SP) : ‘CHAR OVER TO MAKE 
as (SP) :: ROOM FOR NEW ONE. 
178: INC 2(SP) ::KEEP COUNT OF CHAR 
‘BIS -2(SP), SP) ss _IN NEW CHAR 
BR 7§ ;:GET THE NEXT ONE 
i8$: . TYPE SQUES t: TYPE ?<CR><LF> 
BR 20g ::SIMULATE CONTROL-U 
.OSABL LSB 











; RHRELEAALATRERELE AAAS ARALTALALARELEALALALALLAF ARAL RARTLELALTELE 
:THIS: ROUTINE WILL INPUT & SINGLE CHARACTER FROM THE TTY 


**CALL: 
:% ROCHR $3 INPUT A SINGLE CHARACTER FROM THE TTY 
1% RETURN HERE ::CHARACTER IS ON THE STACK 
1% t{HITH PARITY BIT STRIPPED OFF 
SROCHR: MOV (SP), -<SP) : PUSH DOWN THE PC 
MOV 4iSP} 2(SP) ;3SQVE THE PS 
1S: TSTB = MSTKS :WAIT FOR 
PL 1$ 4 CHARACTER 
MOVE  a$TKB,4(SP) ::READ THE T 
BIC #11772 4(SP) 3;GET RID OF un IF ANY 
CMP 4(SP), #23 $318 17 A CONTROL-S? 
. BNE 3$ : BRANCH # N 
28: TST8 © aSTKS :1MATT FOR A CHARACTER 
BRL 2 ss LOOP UNTIL ITS THERE 
MOVE JSTKB,-(SP) :3G87 HARAC TER 
BIC #tCl??, (SP) MAKE IT 7-BIT ASCII 
CMP (£P)+, #2] S IT A CONTROL-0? 
BNE 25 F NOT DISCARD IT 
BR YES, R 







Ht 
ri] 
13 : UM 
2s: CMP 4(SP), #140 IS tT UPPER CASE? 
BLT ug BRANCH IF YES 


TALL MOTION TE 
DZTAODC. NEW 


e708 o14o4e2 
3 


e711 014050 


2713 
2714 
gcis 
e7ié 
eli 
e718 
719 «014052 
2720 014054 
7el 014070 
27 014074 
2723 014076 
7 014100 
e7eS 914102 
2726 014105 
eve? 914110 
e7e8 014114 
e729 O14116 
2730 Ol4lee 
2731 Q14126 
e732 O1413e 
2733 Q14134 
2734 O14140 
2735 G14i44 
e736 914146 
2737 014150 
2738 O14156 
e739 O14164 
2740 Oi4166 
e74l 014167 
e74e 914170 
2743 014200 
2-44 914205 
2745 Ol42le 
2746 Ol4ee0 
e757 Ol4¢ee3 
2748 014230 
2745 
2750 
2751 
2752 
e753 
2754 
2755 
e755 
2757 
2758 
e7S3 014234 
e760 014236 





ST 
rs 


BoaaBs 


haa 


MAINDEC-11-DZ2TAD-C 


00:09 


900004 900175 
o0co04o 900004 


014170 
014200 


009177 
001200 
Oo0044 
OL4166 
og00is 
177777 


001202 


000004 
014170 


peaks 


00 
047040 
000840 


000004 


000002 
000004 


CoO 
co00le 
020122 


0S3505 


‘000002 


4$: 


$ROLIN: 
1$: 


23: 


9S: 


STTYIN: . 
SCNTLU: . 
SCNTLG: . 
SMSWR: 


SMNEW: 


MACY11 27(1006) 
TTY INPUT ROUTINE 


4(SP), #175 
4 

#40, 4(SP) 
.? EET TLE TT TTT TTeTTTeTTTeTTTTTTTTerirerrrittr errr rrr rr rer Trey 


CMP 
BGT” 
BIC 
RTI 


ROLI 
RETURN HERE 


MOV 


-ASCIZ 


i $47) 


a .R3 


J07 
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(SP)+, (R3) 
#177, (R32) 


3$ 
$QUES 
(R3), 9S 


95 
#15, (R3)+ 


7*U/<1§> «12> 
7tG/<1$><le> 
(15><12>/SWR = 


-ASCIZ / NEW = / 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


s315 s A aT CHAR? 
+ MAKE IT UPPER 
;G0 BACK TO USER 


cae ROUTINE WILL INPUT A-STRING FROM THE TTY 


33 INPUT A STRING FROM THE TTY 


;ADDRESS OF FIRST CHARACTER WILL BE ON “HE STACK 


: } TERMINATOR WILL m= A BYTE OF ALL O’S 
seve R3 
ADDRESS 
oe pl” 
390 READ ONE CHARACTER FROM THE TTY 
CHARACTER 


: }CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


;;CHECK FOR RETURN 
;;LOOP_IF NOT RETURN 


: FADJUST THE STACK AND PUT ADDRESS OF THE 


3 FIRST ASCII CHARACTER ON IT 


; ;RETURN 

73 STORAGE FOR ASCII CHAR. TO TYPE 
:; TERMINATOR 
:3RESERVE 3 g BYTES FOR TTY INPUT .. 


_EICONTROL “er 


5 EP ERER EEE EERE RARE REE ER ESE EERE EERE LEAR ER AE EER A EL LEA AER E LAR RELE 
tSTHIS ROUTINE iL iad AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


SROOCT: 


; #CHANGE IT TO BINA 
ALL: 


RDOCT 
RETURN HERE 


MOY 


; ;READ AN gc TAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF _ THE STACK 
;;HIGH ORDER BITS ARE IN SHIOCT 


ss PROV IOS oe FOR THE 
NPUT NUMBER 


S&S 0081 





TALL MOT st TEST 
DZTAOC. NEW 


& —— +--+ —-- 





MAINDEC=11-DZTAD-C 
20 REA 


1$: 


2s: 


3$: 


RTI 
SHIOCT: . 


MACY1: 271006) 
OCTAL NUMBER FROM THE TTY 
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READ AN ASC 

T ADDRESS 
igen DATA 
;;PICKUP THI 
HE zeke RE 


IZ LI 

OF 1ST CHARACTER 
WORD 
¢ 
OUT 


HORACTER 


“ 
33 *8 


aT THE ASCII JUNK 
;ADD_IN THIS DIGIT 


nem Mh FROM STACK 
;;SAVE THE RESUL 


;3POP STACK INTO Re 
;;POP STACK INTO Al 
3 POP STACK INTO RO 


URN 
: {HIGH ORDER SITS GO HERE 








MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 67 


TALL MOTION TEST 
DZTAOC.NEW  e4-MAY-7& 00:00 





BINARY TO OCTAL (ASCII) AND TYPE 
-SBTTL BUNARY TO OCTAL (ASCII) AND TYPE 





$ IHtRtRSAASRANERHEEEEREREEAAEREHEHEREAEET EAE NEENEEEDEDEENEEEE«H 
pATHIS ROUTINE IS USED TO CHANGE A 1S-SIT BINARY NUMBER TO A 6-DIGIT 
:HOCTAL (ASCII) NUMBER AND T 


LeSTY POS~--ENT 
CALL: 


i+ ss 

;# MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

3% TYPOS thm FOR TYPEOUT 

7% -BYTE N 3;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
3; BYTE M ;;M=1 OR O 

;% ;;1=TYPE LEADING ZEROS 

i. ;;Q=SUPPRESS LEADING ZEROS 


YPE IT, 
ER HERE TO SETUP SUPPRESS ZEROS AND NUMSER OF DIGITS TO TYPE 


; #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;#STYPOS OR $TYPOC 
*CALL: 


: NOV UM, -(SP) ; sNUMBER TO_BE TYPED 
erroc—ome HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
1% TYPOC :;CALL FOR TYPEOUT 
$TYPOS: MOV asP), -(SP) ;;PICKUP THE MODE 
MOVB 1(SP)\SOFILL  ;;LOAD ZERO FILL SWITCH 
MOVE (SP)+° SOMODE+1 :;NUMBER OF DIGITS TO TYPE 
| ADD #2, (SP) :;ADJUST RETURN ADDRESS 
aR STYPCN 
STYPOC: MOVB = #1, SOFILL 3;SET THE ZERO FILL SUITCH 
MOVB #6, SOMODE +1 HSE FOR SIX(6) DIGITS 
STYPON: MOVB #5, SOCNT ;SET THE ITERATION COUNT 
MOV R3,-(SP) . :SAVE RS 
MOV R4Y,-(SP) FOE a4 
MOV RS -(5P) -$iSAVE_RS 
nove SOMODE*1, Bs :;GET THE NUMBER OF DIGITS TO TYPE 
ADD eR ss SUBTRACT IT FOR MAX. ALLOWED 
MOVB = RY Son00e $3 SAV — IT FOR USE 
_MOVB = SOFILL,R sGET THE ZERO FILL SWITCH 
MOV 12(5P); ‘Re SEBICKUP THE INPUT NUMGER 
CLR e !:CLEAR THE OUTPUT WORD 
1$: ROL RS ; ROTATE MSB INTO “C™ 
2S: ROL RS SSFORM THIS DIGIT 
ROL RE 
ROL RE 
MOV RE, R3 . 
3S: ROL R3 ;;GET LSB OF THIS, »DIGIT 
ECE SOMODE TYPE THIS DIGIT? 
BIC #177770,R3 3GET RID OF JUNK 
BNE 4g 


TST RY 1] SUPPRESS HIS 0? 
BEQ S$ ;;8R IF YES 








Be a Baas | re eee MOTION TEST in ea sleaiteg MACY11 27(1006) 23-SEP-76 10:33 PAGE 69 
DZTADC. NEW 00: TRAP DECODER 


28 
supe 5p RRR EER RARE RARER EERE LEER R EE EERE EERE EEE REESE EAE EE SE 
367 : THIS ROUTING WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
2868 3 #AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
2869 ;*#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

:#GO TO THAT ROUTINE. 


o046 STRAP: MOV = RO, - (SP) ;SAVE RO 
16600 00002 MOV (SP), RO Hag TRAP AQORESS 
, 74 TST (RO) :;BACKUP BY 2 

014574 111000 MOVB (RO), RO j3GET RIGHT BYTE OF TRAP 
2875 014576 006300 ASL = RO j POSITION FOR INDEXING 
014609 016000 014620 MOV § $TRPAD(RO),RO ;;INDEX TO TABLE 
2878 014604 000200 RTS —-RO $760 TO ROUTINE 


e881 ;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


O14S05 O11646 STRAP2: ad (SP), -(SP) ;;MOVE THE PC DOWN 
e884 014610 016666 900004 000002 4(SP},2(SP) ;;MOVE THE PSW DOWN 
014616 00002 RTI ;;RESTORE THE PSW 


e887 .SBTTL TRAP TABLE 


2889 ;¥THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” INSTRUCTION. 


; ROUTINE 


2894 O14620 014606 éTRPAD: .WORD  STRAP2 : 

2895 014622 013240 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 

2896 014624 014362 $TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER CMITH LEADING ZEROS) 
2897 O14626 014336 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
2898 014630 014376 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


2908 014632 013530 SGTSWR ;;CALL=GTSWR TRAP+5(10440S) GET SOFT-SWR SETTING 


e302 014634 013460 $CKSWR ii eett= CKSWR TRAP +6 ( 104406 ) y ST_FOR CHANGE IN SOFT-SWR 


cos ear, 013742 $SROCHR if ee TRAP+?( 104407) TTY TYPEIN CHARACTER ROUTINE 


TQ WRITE A FILE GAP 

QO WRITE A BLOCK OF DATA 

READ A BL fa e DATA 

Q BACK SPACE A FILE GAP 

Q BACK SPACE A BLOCK GAP 
SPACE FIL 


AAHHO 
C008 


4 : : 
2908 O14650 011004 TREAD ;;CALL=READ § TRAP+14(10441 


oO 
% 
z 
nT 
ees 
~~? 
Bop 
$ 
g 
aS) 


REWIND TAPE 
OUTINE TO SELECT THE NEXT DRIVE 
OMPARE READ AND WRITE SUFFERS 
ETUP TO LOOP AS PER THE TTY 


L=REWIND #21(104421) ROUT 
56 ‘ De: PRY TRAPS22( 104422 
372 T.BLKCMP LL=BLKCMP_  TRAP+23( 10442 
116 T. SETLOOP Sears SETLOOP TRAP#39( 1044S 


= = 
—- 
PONS eae Zaz. 
NOoODAAAAH 
[200 


24-MAY-7§ SEG 0085 
2964 -SBTTL TRAP DECODER 
014670 



















TALL MOTION TEST MAINDEC-11-DZ2TAD-C __ _MACYLI 27(1005) 23-SEP-76 10:33 PAGE 70 ‘ 
DZTADC.NEW e4-MAY-76 00:09 PJWER DOWN AND UP ROUTINES SEG 0086 


2317 .SBTTL POWER DOWN AND UP ROUTINES 
5318 5 5 RRARRAR AREAL ER AAL EA AAAA ERA LAA LAE RAAA AE LLLL RA AEAE REARS RELLLALELE 
2920 *POWER DOWN ROUTINE 
g3e1 a1 7 12737 015036 000024 $PWRDON: MOV #SILLUP, JHPWRVEC ;:SET FOR FAST UP 
S22 O14700 Ole737 900340 O000¢6 MOV #340, d8PWRVEC+2 ; :PRIO:7 
2923 014706 O1004%6 MOV RO,-(SP) ::PUSH RO ON STACK 
2924 010146 MOV Ri; -(5P) PUSH R1 ON STACK 
MOV R2,-(SP) : PU CK 
010346 MOV R3,-(5P) :PUSH R3 ON STACK 
MOV RY’ -(5P) PUSH RY ON STACK 
510546 MOV RS; -(SP) *:PUSH RS ON STACK 
017746 164212 MOV JSWR, -(SP) :: PUSH TACK 
010667 000110 | MOV —s SP SSAVRE : SAVE 
Ol2737 014745 oop0024 MOV #SPWRUP, J#PWRVEC’;;SET UP VECTOR 
000000 HALT 
776 -2 :;HANG UP 


fg RERRRAA RRR RE RAS RELA ARLE KERR REE EA AREAL EERE REERERLERE RELL ELERESE 
:POWER UP ROUTINE 
012737 015036 o00024 $PWRUP: MOV #SILLUP, J#PWRVEC ;:SET FOR FAST DOWN 
MOV AVR, SP e 


018706 O00064 M ; 3 
- 905067 O30060 CLR SAVRE :WAIT LOOP FOR THE TTY 
0052¢7 o0c0S4 1S: INC SSAVRE :WAIT FOR THE INC 
001375 BNE 1$ 330 RD 
012677 164144 MOV (SP)+, ISWR ::POP STACK INTO JSWR 
774 612605 MOV (SP)+;R5 ::POP STACK INTO RS 
012604 MOV (SP)+; ::POP STACK INTO RY 
912603 MOV (5P)+°R3 -:POP STACK INTO R3 
012602 MOV (SP)+'R2 ::POP STACK INTO Re 
012601 MOV (SP)+'RI ::POP STACK INTO R1 
012600 MOV (5P)+'RO .t:POP STACK INTO RO 
012737 O14 72 900024 ‘ MOV #SPWRDN, J#PWRVEC sage UP THE POWER DOWN VECTOR 
012737 49 o00026 _ MOV #340, d8PWRVEC+2 ;:PRIO: 
109401 TYPE *REPORT THE POWER FAILURE 
015044 SPWRMG: .WORD  SPOWER ?:POWER FAIL MESSAGE POINTER 
012716 MOV (PC)+, (SP) RESTART AT PWRST 
o0e314 S$PWRAD: gifORD PWRST ::RESTART ADDRESS 
000000 SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
900776 BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 
909000 SSAVRE: O ::PUT THE SP HERE 
005015 047520 042527 SPOWER: .ASCIZ <15><12>"POWER™ 





- EVEN 
















TAL] MOTION TEST MAINDEC-11-D2TAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 71 
DZTADC.NEW 24-MAY-76 00:09 DATA TABLE POINTERS FOR ERRORS 


gees $3 sllalalelalalataiotololelahalaiaieleloheheininilololeteiaieisilehelelaisisiedeloleieiahdilelelelelehdiaieleeielele 
Sore ;DATA POINTERS 

car8 015054 001204 001116 001162 DTI: -WORD SAVPC,SERRPC,SREGO, $REG1,0 

Sop 015062 001164 900000 

5ae6 015066 001204 001116 O01162 OTe: -WORD SAVPC,SERRPC, SREGO, SGDDAT, SBDDAT, BYTNUM,O 
e970 015074 O011e% O011e6 001206 

5253 015192 900000 

973 athe 901204 Ese O0il62 OT3: -WORD SAVPC,SERRPC, SREGO,RCRCO,RCRC1,RCRC2,0 
$74 O1Sii2 O01e10 OOle2le O0lel4 

sacP 015120 000000 

2$77 015122 001204 001116 001162 OT4: -WORD SAVPC,SERRPC, SREGO, SREG1,STMPO,O 

sare 015130 001164 001166 000000 

2980 015125 001204 001116 OO0li6e OTS: -WORD SAVPC,SERRPC, SREGO,O 

Sees 015144 000000 


TALL MOTION TEST 
DZTAOC. 


eescce 
did apart at 
RISRBNSDeE 


iat 
Ww 


rata 


ob bb = bb b+ + = bb bb = Bb b= bb 9 ep 
| aa “oO 
Oru Lowe 


Ab At A 
Fer 


NONoOdOO00O0000 9009000000290 020009090000090000000000000 
wiuy 
w 
Rl 
ae = 


Os pn 2 be he be bn 2 be he fe bb bs be pb be 
uw uy 
ee = 


040524 


O44Se2 
040505 


DYBEI4 


052111 
042514 


2 043125 


MAINDEC-11-DZ2TAD-C 
& 00:09 


o42526 
900040 
051503 
051117 
o4ysee 
036523 
041104 


047524 


000 

042116 
042524 
000104 
Ce6S0S 


O44S06 
050101 


042503 
041055 
050101 


026513 


026513 
026505 
040507 


026505 
043455 


042506 





5 RRRRRE REE ARA EERE EEE REE REL ERLE RHEE AA LEEEAEA ATER ERE RE REE RELELEE 


; MESSAGES 
MSGDRV: .ASCIZ 
MSGASK: .ASCIZ 
MSGVEC: .ASCIZ 
MSGPRI: .ASCIZ 
MTACS: .ASCIZ 
MTADB: .ASCIZ 
MTAVEC: .ASCIZ 
MTAPRI: .ASCIZ 
MSGOK: .ASCIZ 
MYES:  -ASCIZ 
MTSTORV: 
MANDRV: .ASCIZ 
MTEST: .ASCIZ 
MLOOP: .ASCIZ 
MXRWND: .ASCIZ 
MXWRIT: .ASCIZ 
MXREAD: .ASCIZ 
MXSFFG: .ASCIZ 
MXSFBG: .ASCIZ 
MXBSFG: .ASCIZ 
MXBSBG: .ASCIZ 
MXWFG: .ASCIZ 
MBUFCK: .ASCIZ 





MACY11 27(1006) 
ASCII MESSAGES 












<CRLF>"DRIVE(S)? ™ 
€15><12>/TACS?7 
/VECTOR?/ 
/PRIORITY?/ 

7 TACS=/ 

/ TADB=/ 

/ VECTOR=/ 

/ PRIORITY=/ 


<15><12>/0K?/ 
/YES/<CRLF> 


~ASCIZ ¢15><12>/TESTING DRIVE / 


7 AND DRIVE 7 
€15><12>/TEST PC?/ 
€15><12>/LOOP PC?/ 
/REWIND/ 

/WRITE/ 


/SPACE-FUD-FILE-GAP/ 
/SPACE-FWD-BLK-GAP “ 

/BACK~SPACE-F ILE-GAP/ 
/BACK-SPACE-BLK-GAP/ 


/WRITE-F ILE-GAP/ 


/BUFFER COMPARE’ 
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TAL] MOTION TEST 


DZTADC. NEW 


30 Oi 
3041 Ol 
3042 0 


o000 


i] 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
015 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


Ss 
SSS0 
1S 
015 
SS 


SS6 
564 
ze 


—-O~- 
Tae SS — 
Sa — 


vetaak d rir 
eter 1 MT cat 
SBRSRSSRE Seah 


c0001e2 


MAINDEC-11-DZTAD-C 
24-MAY-76 00:09 


a tetatty 
—— 
NOON 


80-5 


050115 


050117 
040514 
0S21e4 


023516 
050 


117 
16. 046103 


020104 
0Silee 


052123 


042514 

000 
042040 
O4eS2e 


043505 
043125 


051117 
047111 
050125 
020040 
047522 


020040 


00650e 


EM1: 


EMe: 


EM3: 


EM4: 


MACY11 27(1006) 23-SEP-76 10:33 PAGE 73 
ASCII MESSAGES 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


“IMPROPER FLAG SETTING/ 
“IMPROPER FLAG OCCURRED/ 


/MISSED A FLAG/ 
“INTERRUPT FAILED/ 


/PREMATURE READY OCCURRED/ 
/DION’T STOP IN A FILE GAP/ 
/DIDN’T STOP ON CLEAR LEADER/ 
“BAD DATA READ/ 


‘ILLEGAL BUFFER SIZE/ 


“CRC ERROR/ 
/SHORT RECORD/ 


/3AD INTERRUPT/ 


(15><12> 
‘TEST ERROR/< 15>< 12> 


/PC PC TACS TADB/< 15><12> 





GW) 6 
bb pe 
Stevia 
ONOKOKDWO0O0O000000 a 
oe 
oe 
SV LTow 2 ’ 


ARR ee 


CELT LT TTT TT TT: 
Pema iakant aera at 


orw 
Fa 


WWWWIWWWIWIWIWWIOIWWWIWIWOI OIG WIG WWI GI WIIG GIGI WWW WIWIGWIGI WII GIG GIGI GIGIG 
ee ee ee ee 
£ 


Obi UE TO DOD NUE Corer Co.000 MOPUTE Corur- Cou op ~S0rUT -E Gohor De Wer eore 


Crom o o 
o 


MAINDEC-11-DZTAD-C 
00:09 


4 4 
052516 


0S2131 
020040 


052106 
020124 
051122 


020040 
020040 





MACY11 27(1006) 
ASCII MESSAGES 


“Reet 


-ASCIZ 


-ASCIT 
-ASCIT 


-ASCIZ 
-ASCIT 


-ASCIT 


-ASCIZ 


-ASCIT 
-ASCIT 





10:33 PAGE 74 


NUMBER/<15>< 12> 


BYTES/<15>< 12> 


(12> 
T ~~ ERROR/<15>< 12> 








TALL MOTION TEST 
24-MAY-75 00:09 


TADC. NEW 


a8 
1 


be 
we 


GIGIGIGIGI GI GIGICI GIGIGIGIGIGIGIWIGIG 


0 b+ b= b+ b+ 6 & -+ 9-2 & = B= B= 8-2 pe hs he 


INPOKM MMO uy 
(3.000 GOP Un cor Cope er 


16646 
16654 


016662 


762 
016763 





07 
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ASCII MESSAGES 
o20040 o40S24 
005015 000 <a 
001220 O00000 DT201: :WORD S$ERRPC,TACSL,O 
ooooco DT202: .WORD SERRPC,O 
p30461 O43040 EM201: .ASCI? “TALI FAILED TO RESPOND” 
2514 020104 
051040 051505 


020117 O5i104 EMe202: .ASCIZ “NO DRIVE AVAILABLE” 


20040 O20040 DH201: .ASCIZ /FC TACS/ 
051503 


000103 DHed2: .ASCIZ /PC/ 
-EVEN 





me StS) 9 


LD d--* D-* b-* 0-2 B= 0~* b+ B--* 02 b= B-2 bs & 2 b-2 Pb -2 9-9 b-2 #8 bho 2b = b= p 2p pa 


Tt Tt Tt tt hetetetetetetetetetutetetepetetetetitepetetetetefetetetefe| 


(oo 
Nini 


wu 


RORY 
U1. Worue~09.000 


’ 


it x4 


Mul twee Owanw 


TALL MOTION TEST 
E4-May-7§ 


butese 


| JO-- 0 -b - po 
WOM Les 


SEPESPCSR RSS 
a’ 
3 
rm £ 


0 -- b+ 0 -< 0 -- 8 = 6 -© 9-2 9 = 


Reed 


0 
000000 





MAINDEC 11-02 TAD-C 
00:00 


009200 


000029 
009100 
003900 


;BUFFER LINKS 
; THESE LINKS 
;AND ALSO IND 


; BUFFERS 
WELF 1: 


WORC): 


WBUFe: 


WORCE: 
WEUF 3: 


WORC3: 
WBUF 4: 


WORC4: 
WBUFS: 


WCRCS: 


ee ee a ee eee ee 





EP-76 {10/33 PAGE 76 
FERS AND LINKS 


“ies CD 


TORAGE FOR W3UFL 
;CRC STORAGE FOR WSUF2 


* 3CRC STORAGE FOR WSUFS 





3CRC STORAGE FOR WBUFY 


;CRC STORAGE FOR WSUFS 








TALL MOTION TE 
DITADC. NEW 


322? 
3e28 


OO0L000O DBOWOD00 
fUrurunotut fur-e—r—s—5— 
OTULE £ 


ONG 


MAINDEC=11-DZTAD-C 
09 


WEUFE: 


WORCE: 
WBUFX: 


WORCX: 


RBUF 1: 
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MACYS1 27(1006) 
READ AND WRITE BUFFERS AND LINKS 


;CRC STORAGE FOR WauFE 


h-b-b 
ooo 


* GIGIG) 


ms ee eee 


ee eee 





TALL MOTION TEST MAINDEC-11-DZTAD-C MACYL1 27(1006) 23-SEP-76 10:33 PAGE 78 
DITROC.NEW  =e@4-MAY-76 00:09 READ AND WRITE BUFFERS AND LINKS 


i] 

WR 

0 oi 0020 RSUFY: LK 130. 

o3 13 Rots 335 RSUFS: = 138: 
ee RBUFE: LK 1 


020544 LASTADORESS= 
00000: END 





SEQ 0O94 











TALL MOTION TEST mal 
DZTADC.NEW © B4-MAY-76 00: 
REKKEY 0 3128 
an ne 
NT 012266 £ 
BESINX 02052 237 
BEGIN] 01450 334 
BEGINe 00:50e 235 
BESINS 00151 236 
BEGINY 01516 4538 
BSNCMN 901522 44s 
8170 = 000051 1718 
81700 = 00000! 1618 
SITO1 = 00000¢ 1608 
BITO2 = 000004 159e 
BITO3 = OO0010 1588 
BITOY = 009020 1578 
BITOS = OO0040 158 
BITO& = 000100 1558 
BITO? = 000200 1548 
81708 = 00400 1538 
8ITO3 = 001006 1528 
SIT1 = o00002 1708 
SITIO = 002000 iSis 
BIT11 = 004000 1508 
BIT12 = 910000 149% 
SIT13 = 020000 148% 
BIT14 = o40000 1478 
SITIS = 109000 1468 
Bite = Oo000" 1698 
BITS = 900010 1688 
BIT¥ = 000020 1678 
BITS = 990040 1668 
BIT = 000100 i6Se 
BIT? = 0002 1648 
BITs = 000400 1638 
BIT3_ = 001900 162% 
BLKCMP= 104423 715 
972 
976 
1161 
1374 
BPTVEC= 000014 1788 
BSec = 104416 726 
918 
976 
BSFG = 104415 739 
1313 
1462 
BSFGSE 013064 244 
BYTNUM 001206 2978 
CHKADR 002074 525 
CHKDRY O02 cece 
CKSUR = 194406 1558 
CR = OOO0IS Bos 
CROERR= 040000 2008 





a oe ee 


NDEC=11-D2TAD 
09 


Eo cine velo eck 
WELUIM IOwoO~- 


-C - 


MACY12 27(1006) 23-SEP-76 10:33 PAGE 80 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1637 


2308 
S61 


2256 


29028 















2136 
23148 
609 






611 





4548 
1537 2247 
eeS& 






1$37 

1660 

79 772 777 732 805 Sil 
Ass 929 927 933 937 $0 
1023 1039 1043 10S9 1066 108 

lel 1238 1257 1275 1293 1319 
141 LY2e 1453 1489 1466 1473 
838 839 868 869 899 900 
931 948 954 989 961 966 
1100 1158 1159 1177 1194 1414 
994 1048 1139 1139 1178 1193 
1366 1371 4376 1377 t4le 1413 
1470 1471 eS00 29038 











MAINDEC-11-DZTAD-C MACY11 27( 1006) 


TA1L MOTION TEST 


DZTADC . NEW 
cRC.WD 012232 
C = 000200 


CRLF 06: 
CURDRV 901259 
7 al s Ait es 
l 1611 
DH2 016172 
DH201 O16746 
DHe0e O16763 
DHS 016333 
DHY 018471 
DHS 016611 
DISPLA O01142 
DISPRE O00174 
DO.CMD Qle234 
DO.CRC Olelle 
DRIVE O0l2e36 
DRVKEY 991240 
DRVPNT 001244 
DSWR = 177570 
DT 015054 
ie O1SO&6 
DT201 Olb66e2 
DTe0e 016670 
DT3 015104 
DT4 O01Siee 
OTS 015136 
EMTVEC= 690030 
EM1 015550 
EM10 016003 
EM11 016021 
EMle2 O1s04s 
| EMI3 Ol 
EM14 0! 
EM2 015576 
EM201 016674 
E 018723 
EM2 015625 
EM4 015643 
EMS OiS&E4 
EME o1s715 
EM7 015747 
ERROR = 100000 
ERRVEC= 000004 
EXAM 006474 
EXIT 007532 
FATAL O02716 
FGAP = o04000 
FLAG 012024 
FUNCTI= 000016 
FUNCO = 00 
FUNC] = 000004 
FUNCe = 00 
GNS = #¥eee% 


6O == 000001 


10:33 PAGE 8! 
LS } 


24-MAY-76 00:00 CROSS REFERENCE TABLE -- USER SYMBO 


iJ 
mT! 
». 














TAL! MOTION TEST MAINDEC-11-D2TAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 82 
DZTADC.NEW  24-MAY-76 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS 


er 4 “eos «Sis ese Bea? Baad 
= 
rene QoeOSS ie ag “88 “By 
‘NT 1e0e0 Se 3 =e2l80* e2188% 21978 
oc 2569 






= 000011 84s 2610 
ILBS = 000920 | 2108 1630 1988 2046 2284 . 
INT.EN= 000100 oe08 2883 1941 1964 1988 2013 204% #2070 2091 2106 2127 2155 2204 
i VEC= 000020 1738 463% 464% . 
44 32508 





ADER= 020000 20is 1840 2057 . 2150 2165 = e347 2375 2398 = e429 2432 2456 2462 2485 








2501 : 
‘ 12 ase 2604 2610 
NT 12015 2179% 2186% 21968 
P 007456 17238 1737 
Q06624 bebe 15bbe 1874" 1976s 
LVFLAG 912110 22le = 21S 229 22318 
NDRV 015312 645 30088 
274 605 6138 | 
MAXCNT Q12022 6Sbe 662% bb3* bb4* 665" 6914. 2180 21988 
MBUFCK 15531 1912-30388 : 
MFUNC 007314 16768 191ee 1939 1954* 2001* 2088* 208% 2104 2125* 214% 
MLOOP 15341 1861  301e8 7 | 
MSGASK 015162 1749 © 2989e ? 
MSGDRV 915146 1716 29878 
MSGID  od2024 499 Sle = 618 
MSGOK 015256 1796 30038 
SGPRI 015202 1772 © 2S938 
MSGVEC 15172 1763 89918 
MTACS 15214 1784 29958 
TADB 015203 1787-29978 
015243 1793 30018 
MTAVEC 015232 1790 «©3999 
015326 1g48 30108 
015271 633 3005s 
O1 
01 
9 






o 
1726 1730) 17348 







00 & 
007524 1721 1732 17388 8§61741 
2057 





PRe = 000100 110% 





-——--- -- 





NDEC-11-DZTAD-C 
0 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0098 






MACYI! 27(1006) 23-SEP-76 10:33 PAGE 83 








670% 674 1942e 1965% 1970% 1989% eCci4*e 2020% 2048*  2Uu71* 


* 
elS6* 2282s 











2921 2922 2931% 2937% e2949% 290% 





1893 1896* 2148 21 
4338+ 1953 2000* 20 


x 
®* 2088% 2103 e2le4e e2l42e 2314% 2966 






TAL] MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 84 
DZTADC.NEW  24-MAY-76 00:09 CROSS REFERENCE TABLE -- USER SYMBOLS 


SAVR1 010254 
SELORV= 104422 - 


SERV =s-«s©.123S0 
SETBUF 013116 
SETLOO= 104424 

104420 
SFFG 104417 


SFFGSB8 013010 
TACK = 901100 


Oo 
OF 
588 


Ba8eR 


00 
9 

06 
ae 
00 
01 
02 
04 
l 

60 


8 
oF568 


1759% oF 
TACSL 001220 se 549 623 1522 1755 1758 1785 2338 #2366 2388 #2420 2445 2476 


TADBH 001226 bce 
S7* 1761 1788 Ss «2339s 2367 Ss 2389 e421 2447 BY??? 


1 
17638 
50s *  B2l# 668% 680% 1769% 1771% 1791 1984% 2032%  2298% 22928 


? 
TAPRIO 739% 
TAVEC 001230 6 








TALL MOTION TEST 





DZTADC. NEW 24-MAY-76 00:00 


ITVE= 000014 





MAINDEC-11-DZTAD-C 





MACY11 27(1006) 


2634 


23-SEP-76 10:33 PAGE 8S 


CROSS REFERENCE T.iBLE -- USER SYMBOLS 


646 695 699 


1498 
1716 1738 1749 a7 


186! 2574 2631 6 





2896s 


6 
3 


3 
2 


1654 


16? 
? 


4 


1787 
2659 


SEQ 0100 





TALL MOTION TEST MAINDEC-11-DZTAD-C MACY11 27(1006) 23-SEP-76 10:33 PAGE 86 
DZTADC.NEW 24-NAY-76 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0101 


e049 2072 2093 2108 2129 2157 21788 
e192 e2B9* )§=— 2307 


OOoo00O 


Ht] 
0 
0 
0 
0 
1) 
0 
0 
0 
1 


WLOOP  QO124S4 
WRITE = 104413 


WRTLOC= 010000 
WRTSUB 312450 

























TALL MOTION TEST MAINDEC-11-DZTAD-C 1 27(1006) 23-SEP-76 10:33 PAGE 88 
DZTADC.NEW 24-MAY-76 00:09 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0103 
SMNEW 14223 2635 27478 

l4ele eb3e = e745 & 
SMXCNT lelé 30e# 627% 639% 1601 1510 
SNULL_ 001154 2808 2581 2610 : -* 
SNWTST= O00CO1 70Se «= 7188 )=—s 7318 = 744e—s 7b2e = 7808 = 7958) 0S B4e = 298 Ss 44s = 59H = 87S5# = 8908 

9408 869858 )6=—s «9998 )=610138 §=610338 «6910538 «10658 10868 11058 11258 11448 11648 11838 









11998 leele eis 1e608 1le788 1e968 i3ele 13498 13928 l4eos 





001160 : 
001162 e868 1626% 1635 2966 2969 2973 2977 2980 
001164 e878 627% 2966 2977 









SSAVRE 915042 oy 2938 e939% e2940%  2c58s 


SSETUP= 000137 442% 462 463 465 467 469 471 472 Je 475 497 £00 1488 
1558 1625 1659 1667 2615 2749 
= 000000 705% 
77777 


$S =1 
SSVLAD_ 007014 1577 16028 
$SWR 167000 os. 62 63 64 oh 66 $7 oe 3 291 472 











WRMK= 000000 1554 


3 125  -. 
41 12458 1260 12648 §=1278 282% i296 
968 1425 14298 ' 






le2l 
13538 1392 








1321 
$TPB 001152 e79e 2599% 2610 
STPFLG 001157 283% 2557 2610 
STPS 001150 278% 2597 2610 












TAI] MOTION TEST MAINDEC-11-DZTAD-C NACYLI 27(1006) 23-SEP-76 10:33 PAGE 89 
DZTADC.NEW e4-NAY-76 00:09 CROSS REFERENCE TABLE -- USER SYMBOLS 






SEG 0104 





TR 4 8 4 | 3 
Sia ‘ piso Soave Seden 28978 28988 28998 2900 290k 7902 «20038 2904" 20Se | 2a0ee as078 
esoge 29098 28108 28118 eSiee «edige edits e91Se  edlbe 28178 


TSTNM 11 68 * 1488% 1549 1602 1607 1616 1643 1672 
ne 014170 e720 Ss eel e738 8=s 27428 

















YPEC 013410 es78 862850 e592 0S S978 =8628S98 0S BY 
2603 2605 






SYOCAT= #¥exx% U 1568 1653 
. = 020544 afin 2308 25348 e3s 466 475 476 ; 


1512 1610 1672 1707% 
rs 274e8 2743 2749 2933 2957 3 


lis 1509 
S3¢ 32438 3e44e 2c45e 3e4be 32478 










- ABS. O20S44 000 







ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


TADC TADC/SOL/CRE SYM=DZTADC. NEW 
N-TIME 37 3 SECONDS 

RUNGT tHE RAT 18. 185/90=2.0 

CORE USED: 24K (47 PAGES) - 











SeenON azteeee wy “ ‘eget ue SAASSAAAS: 


+179 + tt tft 


afelaleleniee ee 


90000006 11111111382 eecezee SaaS a3 SNNUMUNUAAUSESSSSSSSSREGEEEEESET7TITTT TT gBgaaesessqaaaqaaaRSCAAGOAAAIN I: 


Tafaiafafele(a‘eefelafeftalafeetafalelsialeleafefafeljefaleffalel pianen cn OC ‘ OUD 01% li 


‘ BO9 
Spas eunting Lt BS K eB pads, Bag" iS dane Md) 





a ee eee ee eee a cena eee: 


